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Formation continue à la micro-informatique 
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D DM ; 
PHOTO GUNHILD RULT 

Tous nos informaticiens viennent de l'informatique traditionnelle, et en maîtrisent totalement les langages ciassiques : 
Assembleur, COBOL. FORTRAN... Ils utilisent leur professionnalisme et les méthodes de l'informatique pour réaliser 
des applications professionnelles en micro-informatique. Nous vendons des micro-ordinateurs sans programme. 
Nous vendons aussi des micro-ordinateurs avec les programmes. || s'agit de programmes réalisés par la société KA, 
dont nous garantissons la qualité et le bon fonctionnement. 
Nos formateurs enseignent l'informatique. L'enseignement de la micro-informatique nécessite des formateurs pro- 
fessionnels, suffisamment de matériel pour que chacun puisse pratiquer, un support de cours couvrant non 
seulement l'enseignement diffusé, mais permettant au participant de s’auto-former après le stage. Nous avons déjà 
accueilli de nombreux stagiaires, d'horizons et de centres d'intérêts divers : chefs d'entreprise. universitaires, profes- 
sions libérales, informaticiens, musiciens compositeurs, retraités, cadres de grandes entreprises, revendeurs de 


PRESS Nous proposons 5 possibilités : 


B Stage de 2 jours 

bases de données. 

Comment utiliser les progiciels : 
e bases de données 

e manipulateurs de nombres 

et générateurs de tableaux 

e générateurs d'états imprimés 
Application pratique 

(un 48 K + un lecteur de 


disquettes pour deux participants). 


Après ce stage, on peut générer, 
à partir de progiciels, un 
programme totalement adapté 

à son application en moins 
d'une journée de travail. 

Ce stage nécessite de connaître 
la manipulation de l'APPLE Il, 
ou d’avoir suivi au minimum 

la journée d'initiation. 


Dates 27-28 juin 
29-30 août 
Prix 2192 F ht. 


& Stage de 1 semaine 
de programmation BASIC. 
Il débute par la journée 
d'initiation 

Le stage permet 
d'assimiler la logique 

de programmation 

et de l'appliquer 

(un micro-système 48 K 
pour 2 participants). 

En fin de stage, on sait 
établir un programme 

de gestion de fichier avec 


consultation en temps réel. 


Ce stage ne nécessite pas 
de connaissance de départ 
en informatique 


Dates 

du 18 au 22 avril 
du 16 au 20 mai 
du 20 au 24 juin 
Prix 4245 Fht. 


B Stage 3 jours disquettes. 
Consacré à l'organisation 

à la programmation et à 
l'exploitation de fichiers 

sur disquettes magnétiques, 
à travers l'étude du Disk 
Operating System APPLE II 
Travaux pratiques sur 
micro-systèmes (un 48 K + un 
lecteur de disquettes 

pour deux participants). 

Ce stage nécessite : 

e soit d'avoir suivi le stage 

de 1 semaine de programmation 
au préalable: 

e soit d'avoir une bonne 
connaissance théorique 

et une sérieuse pratique 

de BASIC de | APPLE IL. 

Dates du 25 au 27 juillet 


du 17 au 19 octobre 
Prix 3378 Fh.t. 


& Journée d'initiation - Dates : 18 avril, 16 mai, 20 juin - Prix 773 Fh.t. 


Le nombre de places pour chaque stage est strictement limite. à ia fois pour la qualité de l'enseignement et par les contraintes du materiel 
Deux animateurs sont présents pour aider les participants à la réalisation de leurs programmes 


Un support de cours très complet est remis à chaque participant 


& Journées de sensibilisation 
et stages de formation 
à Paris et en Province. 
s sont organisés 
à la demande 
e d une instance régionale 
telle. par exemple, 
une Chambre de Commerce; 
e d un organisme 


vaste de formation: 
une entreprise. 

La société KA 

installe le matériel 

pour la durée 

de la formation, 

assure la formation 

et fournit 

les supports de cours. 


Pour la journée d'initiation et pour les stages. les déjeuners sont pris en commun ei compris 





l’informatique douce: 


Renseignements et inscriptions à KA - Programme détaillé sur demande. 
212 rue Lecourbe 75015 Paris - Tél. 533.13.50. 
Le calendrier 83 est disponible. 


*“L'informatique douce” est une marque déposée de la société KA 
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CR Page Langage” Niveau" * 
Éditorial par Hervé Thiriez 5 

par Bruno Lemaire et Gilles Mauffrey 6 A 

Cryptographie à clef publique par Olivier Herz 7 P 

Graphique, quand tu nous tiens... par Guy Mathieu 15 B 

Graphiques et logique par Olivier Herz 21 A 

Hard Copy Seikosha par Olivier Herz 22 A 

La souris de Lisa par Hervé Thiriez 24 / 

L’Apple Ile à l'essai par Jean-François Duvivier 25 / 

Des programmes relogeables par Philippe François 27 A 

Dump Pascal par Michel Marquis 29 P 

Un générateur par Denis Sureau 35 A 

Un programme de test universel par Denis Sureau 39 B . 
Visicalc et traitement de texte par Hervé Thiriez 43 B 
HELLO corrigé par Thierry Le Tallec et Jacques Tran-Van 46 A | ; 
Gestion de masques en BASIC par Gérard Michel 47 B-A M-T ‘à 
FID, MUFFIN et DEMUFFIN par Alexandre Duback 55 à T 
Le cours de BASIC Applesoft d'André Finot [ 
par Jean-Jacques Crépy 56 f T L- 
Multiplan à l’essai par Hervé Thiriez 57 / T - 
Effacement de directory en Pascal par Régis Lardennois 59 P M 5 
Création de fichiers EXEC par Yvan Koenig 60 B T ü 
Boot PLE + CRAE par Michel Marquis 61 B M-T à 
Un programme de fondu enchaîné par Denis Sureau 62 A P-T 3 
Les quatre ponts par Olivier Herz 63 B T r] 
Courrier des lecteurs 64 À / 

Courrier des clubs 66 / / 

Trucs et astuces 26-58 / / 


* Langage : B(asic) - A(ssembleur) - P(ascal). 
** Niveau : D(ébutant) - M(oyen) - P(rofessionnel) - T(ous). 
Il s'agit-là du niveau nécessaire pour comprendre le fonctionnement du programme décrit dans l’article, ou pour digérer l'article lui- 
même. Ceci dit, un programme peut être utilisé sans compréhension de son fonctionnement interne (sinon, qui jouerait aux échecs sur 
ordinateur ?) 


Les annonceurs 

B.F.I. : p.42 — BMI : 3: couv. — ANDRÉ F. FINOT : p. 20 — JCR : 4° couv. — KA : 2 couv. — LOGMA : p. 18 — M.B.D.C. : p.58 
— MICRO INFORMATIQUE SERVICE : p. 4 — MICROMOS : p. 13-45 — MINIGRAPHE : p. 17 — L'ORDINATEUR INDIVIDUEL : 
p. 14 — PSI. : p. 54 — SYBEX : p. 32-33 — TOTALE FORMATION : p. 47 


Éditions MEV - 49, rue Lamartine - 78000 Versailles 


Directeur de la publication : Hervé Thiriez. Imprimerie Sim, 75011 Paris. Imprimé en France. Dépôt légal : 1°' trimestre 1983. 
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S.E.P. Marketing 


D.S.A. INFORMATIQUE MICRO ALPHA SOFT 


5, bd Dubouchage 11, impasse du Lacquet 61, rue Ch. Rivière - B.P. 0701 22, rue des 3 Pierres 
06000 NICE 


Tél. (93) 85.15.96 








e La division de la longueur des program- 
mes par 20. 
e La possibilité réelle de dessiner ses mas- 
ques de saisie ou d'impression. 
e Une indépendance totale de la périphérie 
choisie par rapport au système. 
e L'intégralité du système contenu sur une carte 
mémoire de 20 K. 
e Une gestion de mémoire de 140 K à 120 mégas. 
e Des utilitaires déterminants 
- un générateur de programmes de ges- 
tion de fichiers permettant même le séquentiel 
indexé multiclé 
- un générateur d'écrans. 


SEEMI 


44401 REZE CEDEX 
Tél. (40) 75.52.80 


25200 MONTBELIARD 
Tél. (81) 97.16.46 


Carte MEM/D0OS 6502 


LE SYSTEME D'EXPLOITATION 
DU 6502 - MONOPOSTE/MULTIPOSTE 


e CALL FN, une nouvelle commande basic, très 
puissante, intégrée au système permettant 
l'appel des sous-programmes par noms avec 
passage de paramètres et variables locales. 

e Une version multiposte assurant la mise en 
commun totale des ressources sans conflit et 
l'autonomie des postes intelligents disposant 
de leur propre unité centrale. 

+ Des programmes compatibles APPLE IC et 
APPLE fffautomatiquement transférables sur 
COMMODORE 8096. 

e Et pour demain, des logiciels développés 
aujourd’hui directement compatibles avec le 
réseau local memnet. 


micro 
informatique 
[a] service 


3, rue Meyerbeer - 06000 NICE - Télex 461 916 F 


G-B 
C.I.C.C. 


Grove house 
the bordage 
St Peter Port 
GUERNSEY 
(0481) 20155 


BENELUX 
MEGAVOLT S.A. 


Rue de Bleurmont 
32B 
B 4920 EMBOURG 


MICROMEGAS 


69007 LYON 
Tél. (7) 861.19.52 





Éditorial 


Après des mois et des mois d'attente, nous avons enfin vu le 19 janvier les nouveaux produits 
d'Apple, le Ile et le Lisa. Bien entendu, nous vous en parlons dans ce septième numéro de Pom's. 
Par opposition au dernier numéro, dans lequel nous vous avons offert plusieurs longs articles, nous 
vous proposons ici de nombreux articles de.tous genres. Les amateurs de Pascal peuvent se réjouir, 
ils trouveront trois programmes écrits dans leur langue ! 


Trois contributions assez importantes occuperont vos soirées pendant quelque temps : tout d'abord, 
un générateur de programme dû à Denis Sureau, et accompagné d’une application sous forme de 
test programmable. Ensuite, Olivier Herz nous assène un programme Pascal de cryptographie à clef 
publique — grâce auquel vous pourrez coder et décoder des messages. Enfin, Gérard Michel 
concurrence le MEM/DOS en vous donnant un programme de gestion de masques dont l'analyse 
devrait permettre de grands progrès aux débutants ayant déjà lu ses articles précédents. 


De nombreux autres articles vous apporteront de multiples idées et de non moins nombreux 
programmes. Guy Mathieu nous montre comment exploiter les possibilités graphiques de l'Epson, ce 
dont Olivier Herz s'inspire pour vous aider à effectuer des opérations logiques sur les pages 
graphiques. Nous apprennons à utiliser les minuscules dans Visicalc sur Apple Il, puis nous analysons 
la conversion bidirectionnelle entre Apple Writer et des fichiers TEXT. 


Michel Marquis nous propose un programme BASIC de boot pour lier PLE et CRAE (voir le 
numéro 1 de Pom's) à l'allumage de l'appareil et un programme de dump en Pascal. Philippe 
François apprend aux programmeurs en assembleur comment réaliser des programmes relogeables. 
Régis Lardennois nous enseigne une sécurité pour l'utilisation du directory Pascal. Bruno Lemaire 
et Gilles Mauffrey ont analysé le moniteur de l’Apple III et nous donnent quelques bonnes adresses. 
Quand à Olivier Herz, il propose encore un programme de Hard Copy pour Seikosha et un jeu (les 
quatre ponts) : avec un autre auteur comme lui, Pom's pourra devenir mensuel ! 


Suite aux nombreuses questions des lecteurs relatives aux programmes FID et MUFFIN, Alexandre 
Duback apporte quelques explications sur leur mode d'emploi. Vous trouverez aussi dans ce numéro 
un banc d'essai de l'Apple Ile (Jean-François Duvivier est de retour parmi nous), une présentation 
du Lisa, une analyse du programme Multiplan et du programme d'apprentissage du BASIC d'André 
Finot. 

Nous rappelons aux nouveaux lecteurs qu'une disquette facultative en DOS 3.3 accompagne chaque 
numéro de Pom's. Cette disquette reprend tous les programmes de la revue, agrémentés 
d'explications, d'un générique (souvent) et de programmes de démonstration (parfois). Les 
disquettes peuvent être commandées séparément. 


Le recueil numéro 1 de Pom's regroupant les quatre premiers numéros est en train de « partir » à 
toute vitesse. Attention, nous n’en avons tiré que 5 000 ! On peut commander les trois disquettes du 
recueil séparément pour 150 francs (voir le bulletin). 


Nous vous remercions de continuer à nous faire confiance et encourageons tous les lecteurs qui nous 
envoient leurs contributions. 


Nous vous donnons rendez-vous du 14 au 18 juin à notre stand (T3) au salon Micro-Expo. 


Hervé Thiriez 


Ont collaboré à ce numéro : Jean-Jacques Crépy - Alexandre Duback - Jean-François Duvivier - Philippe François - Oli- 
vier Herz - Yvan Koenig - Régis Lardennois - Bruno Lemaire - Thierry Le Tallec - Michel Marquis - Guy Mathieu - Gilles 
Mauffrey - Gérard Michel - Denis Sureau - Hervé Thiriez - Jacques Tran-Van. 

Rédacteur : Olivier Herz — Dessins : Laurent Bidot. 


Directeur de la publication - rédacteur en chef : Hervé Thiriez - Siège social et abonnements : Éditions MEV - 49, rue 

Lamartine - 78000 Versailles - Rédaction : 59, bd de Glatigny - 78000 Versailles - Tél. : (3) 918.13.07 - Courrier des 

lecteurs (logiciel) : Olivier Herz - 17, rue du Gros Chêne - 44300 Nantes. 

ee pure : Force 7 - Anne Jourdan - 39, rue de la Grange-aux-Belles - 75483 Paris Cedex 10 - Tél. : (1) 
.66.10. 

Diffusion auprès des boutiques et librairies : Éditions du PSI - 41-51, rue Jacquard - B.P. 86 - 77400 Lagny-sur-Marne. 

Composition - Impression : SIM - 52, rue Servan - 75011 Paris - Tél. : (1) 357.51.20. 
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CTRL - @. - RESET 
(ou les arcanes du Monitor Apple III) 


Bruno Lemaire - Gilles Mauffrey 


Tout utilisateur d'Apple III, surtout 
s'il a aussi utilisé un Apple Il, s’est 
sans doute posé au moins une fois 
les questions suivantes : qu'y at-il 
derrière le rempart mystérieux du 
SOS ? Peut-on utiliser le langage 
machine de l'Apple III aussi commo- 
dément que celui de son petit frère, 
puisqu'ils utilisent tous deux le 
même processeur, le 6502 ? 


Nous allons donc essayer de donner 
dans cet article quelques éclaircisse- 
ments sur l’utilisation et l'implanta- 
tion mémoire des principales routi- 
nes moniteur de l’Apple III, en réser- 
vant à un article ultérieur la présen- 
tation de la structure du SOS. 


Structure de la mémoire 
A. Généralités 

La mémoire de l'Apple II] peut être 
considérée comme essentiellement 
composée de zones (banques) de 
32 K-octets ; une exception est faite 
pour la zone s'étendant de $F000 à 
$FFBF qui contient normalement le 


Syntaxe 


nG 
ndJ 


moniteur en ROM, mais qui peut 
être « switchée » pour contenir une 
zone RAM du SOS. 


Le nombre de ces zones est variable, 
et dépend de la configuration de 
l'utilisateur. Il y a ainsi 4 zones pour 
un Apple 128 K, et bien sûr 8 zones 
pour un Apple 256 K. Il n'y a cepen- 
dant que 64 K directement adressa- 
bles par l'utilisateur, décomposés en 
une banque « système » allant de 
$0000 à $1FFF, et de $A000 à 
$FFFF, et en une banque utilisateur 
allant de $2000 à $9FFF. C’est cette 
banque qui est « switchable » par 
une simple modification du contenu 
de $FFEF. Ce contenu varie de FO à 
F2 pour un 128 K, et de FO à F6 
pour un 256 K. 

Si l’on veut implanter en mémoire 
un programme machine, on dispose 
donc sans problème d'au moins 
32 K, plus une partie de la banque 
système non utilisée par le SOS. 
Par contre, si l’on désire utiliser 
davantage de mémoire en modifiant 


Commandes moniteur 


Utilisation 


le numéro de la banque utilisée, il 
faut veiller à ce que la partie du pro- 
gramme qui veut adresser d’autres 
banques soit sur la banque système. 


B. Zones particulières 


1) En dehors de la page zéro tradi- 
tionnelle (réservée pour différents 
pointeurs et pour l’adressage indirect 
du 6502), et de la pile système en 
page 1 (de $100 à $1FF), d’autres 
zones font fonction de page zéro 
(adressage indirect étendu, unique- 
ment lorsque le SOS est actif) et de 
pile pour le SOS et pour le pro- 
gramme machine chargé au 
moment du boot. 

2) Mémoire écran. 

— Pour le texte. En 40 colonnes, 
elle utilise les positions de $400 à 
$7FF. En 80 colonnes, elle utilise 
aussi $800 à $BFF ; les caractères 
de rang pair sont alors stockés de la 
page $4 à la page $7, les autres 
étant placés entre les pages $8 et $B. 
— Pour les graphiques. Commence 
en page $20. 


Exécute le programme commençant en n 


Saute à l'octet n 


Recherche l'existence d'un octet entre metn 
Copie la zone comprise entre m et p à partir de n 
(= Verify) 

Jump en 3F8 pour routine utilisateur (User) 
Transfère une zone disque en zone mémoire 


octet < m.pS 
n<m.pM 


même syntaxe que M 


bloc< bufl.buf2R 


D 


bloc <buf1.buf2W 


Fait l'opération inverse. Attention : opération potentiellement dangereuse ! 


m. net p sont des adresses en hexadécimal. buf1 et buf2 désignent le début et la fin du buffer de données. 





: . rante du curseur, puis (e.E en A Il) 
Routines moniteur appelle CROUT e.P : nettoie bas de l’écran 
Les débuts de chaque routine sont (= retour chariot) (e.F en A Il) à partir du 
données en hexadécimal ; celles-ci FCO06 — COUT 1: envoie le curseur 
sont nommées d’après la correspon- caractère qui est dans e.s : Home 
dance qu'elles ont avec celles de l’accumulateur. e.flèche : déplacement dans le sens 
l'Apple II. FCD5 — GETLN : collecte une , de la flèche 

| ligne de 80 caractères e. : passage en 80 colonnes 
F9AE — PRBYTE (print a hexade- FDO7 — CROUT : envoie un e.4 : passage en 40 colonnes 


cimal digit) envoie le con- 
tenu de l’accumulateur 
sur l’organe de sortie 

— PRHEX envoie le quartet 
bas de l’accumulateur sur 
l'organe de sortie 

FB7D — HOME 

FBAF — CROUTI1 


F9B7 


(return with 


clear) : nettoie l'écran à 
partir de la position cou- 


retour chariot 

FDOC — KEYIN : lit le clavier de 
l'Apple III 

FD60 — RDKEY : traite le carac- 
tère saisi au clavier 


Clefs 


Le préfixe « e » est mis pour Escape. 
e'E : nettoie fin de ligne 





(pour sortir du mode Escape, taper 
deux fois d'affilée sur Escape). 


Nous terminons ici cette première 
présentation, remettant à un autre 
article une analyse de la structure du 
SOS. Bien entendu, le titre de cet 
article vous indique la façon d’obte- 
nir le mode moniteur. Il est difficile 
de le découvrir par tâtonnements ! 
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Cryptographie à clef publique 


Le programme ci-joint intéressera 
sans doute un grand nombre 
d’industriels ainsi que tous ceux qui 
sont préoccupés par le secret de 
leurs communications : il s’agit de 
l'implémentation sur Apple Il en 
Pascal d'un système de cryptogra- 
phie à clef publique dont nous pou- 
vons assurer l'inviolabilité même 
avec l’aide des plus puissants ordina- 
teurs. Pour l'utiliser, il n’est pas 
nécessaire de connaître le langage 
Pascal, mais il faut savoir se servir du 
SYSTEM.EDITOR et du SYSTEM. 
FILER. 


Cryptosystème à clef 
publique 


Dans un cryptosystème convention- 
nel, l'expéditeur et le destinataire du 
message possèdent tous deux une 
clef secrète (c’est-à-dire un ensemble 
de paramètres, habituellement des 
grands nombres choisis au hasard) 
permettant d'exécuter l'algorithme 
de codage du message par l’expédi- 
teur et celui de décodage par le des- 
tinataire. Ce message, une fois 
codé, peut être transmis par un 
moyen de communication non 
secret, comme la radio. Il est clair 
que la fiabilité d'un tel système 
repose sur le secret de la clef, qui 
doit être distribuée au moyen de 
canaux sûrs, afin de ne pas être 
interceptée. 


Dans un cryptosystème à clef révé- 
lée (ou publique), on n’a pas besoin 
d’un canal secret pour distribuer les 
clefs. Au contraire, chaque utilisa- 
teur possède deux clefs : une clef de 
codage qu'il rend publique et une 
clef de décodage privée. L'expédi- 
teur code donc le message avec la 
clef publique du destinataire, qui le 
décode avec sa clef privée. L'inviola- 
bilité réside dans le fait qu’on déduit 
très facilement par le calcul la clef 
publique à partir de la clef privée 
alors que l'inverse exigerait des mil- 
liers d'années de calcul sur ordina- 
teur, voire plus! C'est ce qu'on 
appelle une fonction à sens unique 
et à gâche : ce calcul inverse ne peut 
se faire qu’en connaissant une infor- 
mation secrète, la gâche de la fonc- 
tion. 
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Olivier Herz 


(XSYSTEME COMPLET DE CRYPTOGRAPHIE À CLEF PUBLIGUEX) 
CX$C (CC) OLIVIER HERZ OCTOBRE 1982 POUR POM’SX) 
PROGR£M CRYPTOGRAPHIE ; 

USES APPLESTUFF ; 

VBR COMMANDE : CHAR ; 


PROCEDURE MENU; 
CONST TAILLE  =197; 
LONGUEUR =36; 


TYPE ENTIER =INTEGERT LONGUEUR] ; 
CHOIDECA =SET OF CHAR; 

VAR BS,CR : CHAR ; 
NOM : STRING; 


INVFACTEUR, 
BASE ,FACTEUR :ENTIER; 


CLEF :ARRAYI 1..TAILLE]) OF ENTIER; 
PUBL I QUE :TEXT ; 

PRIVEE :FILE OF ENTIER; 

CODE,CLAIR  :TEXT; 

MODTAB :ARRAYI 1..LONGUEUR) OF ENTIER; 


CXXXXXXXXXXXAXEXXXXXLXXXXKXEXEXXXXXXX) 
(%X PROCEDURES HABITUELLES COURANTES X%) 
{x MERCI MICHEL CRIMONT ! X) 
CXXXXXXXXAXXXXXAXXXXXEXXXXELXXXXXXXXEX) 


PROCEDURE MESSAGEX I : INTEGER; S:STRINO) ; 
BEGIN GOTOXY(8,1) ; WRITE(S,CHR(11)22 END; 


FUNCTION PRENCAR(BONSET : CHOIDECA) : CHAR ; 
VAR CH :CHAR; 
BEGIN 
REPEAT 
READ(KEYBOARD , CH) ; IF EOLNCKEYBOARD) THEN CH:=CR; 
IF NOT (CH IN BONSET) THEN WRITECCHR(7)) 
ELSE IF CH INL’ ‘..’z°] THEN WRITE(CH) 
UNTIL CH IN BONSET; 
PRENCAR :=CH 
END ; 


PROCEDURE OUT{S:STRING) ; 
VAR CH :CHAR; 
BEGIN 
CLOSE(PRIVEE) ; CLOSE(PUBLIQUE) ; CLOSE(CODE) ; CLOSE(CLAIR) ; 
PAGE(OUTPUT) ; MESSAGEX 18,5) ; WRITECCHR(7)) ; 
MESSAGE( 12,7 APPUYEZ SUR <RETURND”) ; 
CH:=PRENCAR(EICRI) ; EXIT(MENU) 
END ; 


PROCEDURE SORTIE ; 
BEGIN OUT(C’CLEF OÙ MESSAGE NON VALIDE’) END; 


PROCEDURE DEHORS; 
BEGIN OUT(’TITRE OU LECTEUR NON VALIDE’) END; 


PROCEDURE PRENENTIER(S:STRING; VAR ENT:ENTIER) ; 
VAR I :1..TAILLE; 
BEGIN 
ENT :=0 ; 
1F (LENGTH(S)=@) OR (LENGTH(S)>36) THEN SORTIE; 
FOR 1:=1 TO LENGTH(S) DO 
BEGIN 
1F NOT (S[11 IN 1’8°..’9°]) THEN SORTIE; 
ENT :=ENT X* 18 + (ORDXSTL I 1) -48) 
END 
END ; 


PROCEDURE NOMFICHIER(S:STRING; 1 :INTEGER) ; 
VAR S1 :STRINGE 1]; 


BONSET :CHOIDECA; 
BEGIN 
CLOSECPRIVEE) ; CLOSE(PUBLIQUE) ; CLOSE(CODE) ; CLOSECCLAIR) ; 


HHROTEE 


AETRSIENNRIE 











La méthode 


Les systèmes cryptographiques 
actuels tendent de plus en plus à uti- 
liser des problèmes dits de type NP 
(non polynomiaux) caractérisés par 
le fait que le nombre d'opérations 
nécessaires à leur résolution croît 
comme une fonction exponentielle, 
et non polynomiale, de leur taille. 


Notre programme utilise un 
cryptosystème basé sur le problème 
NP de l’empilement : étant donné n 
jetons de hauteurs respectives A] 
A, et une hauteur C, comment 
peut-on obtenir C en empilant un 
sous-ensemble de ces n jetons ? On 
ne connaît actuellement pas d’autre 
solution que la recherche systémati- 
que de tous les empilements possi- 
bles (au nombre de 2 puissance n). 
Par contre, ce ‘problème est très 
facile dans un cas particulier : quand 
la hauteur d’un jeton est supérieure 
à la somme des hauteurs de ceux qui 
le précèdent (i.e. A; somme de 1 ä:i- 
1 des A4. Il suffit alors pour le résou- 
dre d'essayer de soustraire de C:le 
dernier jeton ; si c'est impossible, on 
essaye l’avant-dernier, etc. jusqu’à 
ce que l’on y arrive; puis l’on 
recommence le processus avec le 
résultat de la soustraction, etc... On 
parvient ainsi à la solution en n opé- 
rations au plus. On conçoit donc que 
l'on utilisera comme clef privée les 
jetons d’un problème facile et 
comme clef publique ceux d’un pro- 
blème difficile. 


Explication des calculs 


On note B1...B, les « hauteurs » du 
« problème facile » de TAILLE n ; 
soient M un très grand nombre (la 
BASE) supérieur à la somme des 
Bet F (le FACTEUR) inférieur à M. 
F doit être premier avec M afin que 
lon puisse trouver son inverse 
modulo M (lINVFACTEUR E, tel 
que E.F = 1 modulo M). Ceci cons- 
titue la clef privée et la gâche est for- 
mée de M et de E. On calcule alors 
les n « hauteurs » A1...A, du « pro- 
blème difficile » par . formule A; = 
(B;F) moduloM ; les A; forment la 
clef publique. 


Pour le codage, on décompose le 
texte en bits valant O0 ou 1 ; nous 
avons utilisé pour coder un caractère 
les 6 chiffres de la décomposition 
binaire de la différence entre son 
code ASCII et 32 : c’est le tableau 
BIT de la procédure CODAGE ; les 
minuscules, de code ASCII supé- 
rieur à 96, ont été remises en majus- 


PAGE(OUTPUT) ; MESSAGE( 18,S); S1:=’ ’; NOM:=’"; 
BONSET :=(/8" gt AE - HN DE ART OR CU TIGE DÉTGE CÉN NE 
REPEAT 
IF LENGTHCNOM)=8 THEN Sil 1] :=PRENCARÇBONSET) 
ELSE IF LENGTH(NOM)=I THEN S1[11]:=PRENCAR(ICR,BS]) 
ELSE S1[1]:=PRENCARÇCBONSET+[CR,BSJ) ; 
IF S1L11 IN BONSET THEN NOM:=CONCAT (NOM, S 1) 
ELSE IF Si[1]1=BS THEN BEGIN 
WRITE(BS,’ ‘’,BS) ; 
DELETECNOM , LENGTH(NOM) , 1) 
END 
UNTIL S1L1]1=CR; 
1F POS(’#’,NOM)=8 THEN NOM:=CONCAT( #4: ,NOM) ; 
IF LENGTHC(NOM)2I THEN NOM:=COPY(NOM, 1,1) 
END ; 


FUNCTION PLUSGRAND(A,B:ENTIER) : BOOLEAN ; 
VAR U,U :STRING; 
BEGIN 

STR(A, UD ; STR(B,U) ; 

IF LENGTHÇCU)>LENGTH(V) THEN PLUSGRAND :=TRUE 

ELSE IF LENGTHÇ(U) <LENGTH(U) THEN PLUSGRAND :=FALSE 
ELSE PLUSGRAND :=UD>U 

END ; 


FUNCTION EGAL(A,B:ENTIER) : BOOLEAN ; 
VAR U,U :STRING; 
BEGIN STR(A,U) ; STR(B,U) ; EGAL:=U=V END; 


FUNCTION RND:INTEGER; 
BEGIN RND:=RANDOM DIV 16384 END; 


PROCEDURE ECRISXI : INTEGER) ; 
BEGIN WRITE(’.’); IF I=TAILLE DIV 2 THEN WRITELN END; 


PROCEDURE FAITMODTABX ENT : ENTIER) ; 
VAR I :1..LONGUEUR; 
BEGIN 
FOR 1:=1 TO LONGUEUR DO 
BEGIN 
MODTABI 1]:=ENT-CENT DIV BASE) XBASE; ENT:=18XMODTABL I) 
END 
END ; 


PROCEDURE MODULOCURR ENT : ENTIER) ; 
VAR I :1..LONGUEUR; 
S :STRING; 
BEGIN 
STR(ENT,S) ; ENT:=8; 
FOR 1:= 1 TO LENGTH(S) DO 
ENT : =ENT + (ORD(SI 1 1) -48) XMODTABI LENGTH(S) +1-1]; 
ENT :=ENT-(ENT DIV BASE) XBASE 


END ; 
CXXXXXXXXXX) 
(x CODAGE Xx) 
CXXXXXXXXXX) 
PROCEDURE CODAGE ; 
VAR 1,J,K : INTEGER; 
CH : CHAR; 
sS : STRING; 
BIT 1ARRAYI8..63,1..6] OF 68..1; 
ENT :ENTIER; 


BEGIN CXCODAGEX) 

NOMFICHIER(’NOM DU CORRESPONDANT : ” ,13) ; 

CXS1-X) 

RESET ( PUBLIQUE , CONCAT (NOM, ’ .TEXT’)) ; 

IF IORESULT<>8 THEN DEHORS; 

CX$I+X) 

PAGE(OUTPUT) ; WRITELN('’LECTURE DE LA CLEF PUBLIQUE”) ; 

FOR 1:=1 TO TAILLE DO 

BEGIN 
1F EOF(PUBLIQUE) THEN SORTIE; ECRIS(1) ; 
READLN( PUBLIQUE ,S) ; PRENENTIER(S,CLEFLI1) 

END ; 

NOMFICHIER(C’NOM DU MESSAGE: ’,11); 

CX$SI-X) 
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cules et les caractères de contrôle, 
de code inférieur à 32, ont été rem- 
placés par des espaces, sauf le retour 
chariot, de code 13, remplacé par le 
code 95 qui représente un caractère 
inaccessible au clavier et donc peu 
usité. On découpe le message en 
groupes successifs de n bits 
X1-..Xn- Si le dernier groupe con- 
tient moins de n bits, on le complète 
par des bits aléatoires. Le codage 
consiste à calculer pour chaque 
groupe la hauteur C, somme de 1 à 
n des A;X;. 


Pour décoder, on commence par 
calculer D = C.E modulo M, puis 
l'on résoud le problème d'empile- 
ment facile avec les B; de façon à 
trouver les n bits Y1...Y,, tels que D 
soit la somme des B;Y;. Or on voit 
aisément que les Y; sont nécessaire- 
ment égaux aux X; ; ils permettent 
donc de reconstituer le texte original 
(en n'oubliant pas de remplacer le 
caractère de code ASCII 95 par un 
retour chariot). 


Réalisation pratique 


L'obligation d'utiliser de très grands 
nombres rendait pratique l'emploi 
du langage Pascal qui possède des 
entiers ayant déjà 36 chiffres (les 
grands entiers). De plus, la portabi- 
lité du Pascal permet d'utiliser le pro- 
gramme CCP sur d'autres ordina- 
teurs. 


Le programme utilise et stocke les 
clefs et messages sous forme de 
fichiers. Hormis la clef privée, qui est 
un fichier de type DATA contenant 
des grands entiers (afin d'éviter que 
des indiscrets ne la lisent), la clef 
publique et les messages codé et 
clair sont des fichiers TEXT qui peu- 
vent être lus ou écrits avec le 
SYSTEM.EDITOR (la clef publique 
et le message codé étant composés 
de grands entiers transformés en 
chaînes de caractères). 


Le programme est en fait une 
grande procédure (MENU) destinée 
à permettre le retour au menu en cas 
d'erreur par une instruction EXIT 
(voir les procédures SORTIE, 
DEHORS et OUT). Les procédures 
ou fonctions MESSAGES et PREN- 
CAR sont classiques et RND fournit 
un bit aléatoire. PRENENTIER fait 
l'inverse de la procédure Pascal STR 
en transformant une chaîne en un 
grand entier. NOMFICHIER prend 
au clavier le nom d’un fichier sans le 
suffixe qu’elle rajoute automatique- 
ment (.TEXT et .DATA pour les 
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BEGIN BITII1,J]:=K MOD 2; K:=K DIV 2 END 
END ; 
PAGECOUTPUT) ; WRITELN(’CODAGE”) ; I1:=TAILLE; ENT:=8; 
REPEAT 
1F EOLNÇCLAIR) THEN BEGIN READLN(CLAIR) ; WRITELN; 
ELSE BEGIN 
READCCLAIR,CH) ; K:=ORDCCH)-32; 1F K<8 THEN K:=8; 
IF K>63 THEN K:=K-32; WRITECCHR(K+32)) : 
END ; 
FOR J:=6 DOHNTO 1 DO 
BEGIN 
ENT :=ENT+CLEF(I1)1XBITIK,J); 
1:=1-1; 1F 1=8 THEN BEGIN 
STRÇENT,S) ; WRITELN(CODE,S) ; 
1:=TAILLE; ENT:=8 
END 


:=63 END 


END; 
1F CEOF(CLAIR)) AND (ICD>TAILLE) THEN 
BEGIN 
REPEAT ENT :=ENT+CLEFCIJXRND; I:=1-1 UNTIL 1=8; 


Suite du listing page 11 


Programme VÉRIFICATION 
Suite et fin de l’article 


Effacement du directory en Pascal 


RESET(CLAIR, CONCAT (NOM, .8,.TEXT’)) ; 

IF IORESULT=8 THEN REWRITEK(CODE , CONCAT (NOM, ‘ .1.TEXT’)); 
IF IORESULT<>8 THEN DEHORS; 

CXS1+X) 

FOR 1:=8 TO 63 DO 

BEGIN 

K:=1; FOR Ji:=1 TO 6 DO 

Pages 59-60 


{#15 
2ROGAAN VERTFICATION:; 


VAR F:FILE OF INTEGER: 
CLICHAR: 
J'INTEGER: 
0C:"INTEGER: 


LCCYE 
CCoiIN 


2QSE (QUYEUT) 
AR: TE(CHR(12)): 
RRITELN: 
ASIE UND PROGRAMME DS DEMONSTRATION DE L''EFFICACITE’): 
NRITELN(" DU PROCEDE D''EFFACEMENT DU DIRECTORY EN MEMÈIRE” ): 
#RITELN: 
#TITELN( INSERER UNE DISQUETTE PROGRAMME VIZRGE et frapper’); 
WRITELN{* "0" POUR LIRE LE DIRECTORY DE LA NOUVELLE DISBUETTE PROGRAMME”? ; 
at[TELN Cou une autre touche JOUR COASEAVER L''ANCIEN DIRECTORY"): 
RERD (CL) HRITELN:WRITELN: 
J'=0: 
IF Cie’C? THEN MARK (PO): { efface en memoire le directory de la disquette } 
{ PROGRAMME sur laqueile se trouve le programme ?} 

RENRITE(F, TEST’ }; 
“AisJeBUT(F}: 
, LOCK) ; 

[5 CL='® 

THEA WRITELN(TIL N''Y À SAS D’'ERREUR DE DIRECTORY’) 
ELSE WRITELN(LE DIRECTORY DE LA VERITABLE DISQUETTE APPLEL EST ?, 
'MAINTENSAT SUR LA FAUSSE 1 

M cu LA. VERITABLE DISGUETTE PROGRAMME et frapper ia barre espace’); 

EAD{CL ); 

HARK (EC): 
END, 














clefs publique et privée, .O.TEXT et 
.1.TEXT pour les messages en clair 
et codé). S'il nv a pas de préfixe, 
elle rajoute #4 : (le préfixe doit indi- 
quer le numéro du drive et non le 
nom de la disquette). PLUSGRAND 
et EGAL comparent deux grands 
entiers (en théorie, rien n'empêche 
de comparer deux grands entiers 
comme on le fait avec. des entiers ou 
des réels, mais en pratique cela pro- 
duit des erreurs et des « plantages » 
à l'exécution ; cette cause d'erreurs 
ne fut pas évidente à découvrir et 
reste mystérieuse !). FAIÏTMODTAB 
et MODULO permettent de calculer 
les expressions B;.F modulo M et 
C.E modulo M (alors que les poduits 
B;.F et C.E excèdent les 36 chiffres) 
grâce au tableau MODTAB qui con- 
tient les valeurs modulo M des pro- 
duits de F ou E par les puissances 
successives de 10. 


Les procédures CODAGE et DECO- 
DAGE comportent deux parties : la 
demande des noms des fichiers puis 
le codage ou le décodage propre- 
ment dits. Si l'opération de déco- 
dage rencontre un problème d'empi- 
lement ne pouvant être résolu (mau- 
vaise clef ou mauvais message), elle 
s'arrête (on peut la laisser continuer 
si l’on supprime la ligne avant le 
UNTIL). 


La procédure ALEATOIRE fournit 
un grand entier aléatoire compris 
entre INF et SUP-1. La méthode uti- 
lisée est la dichotomie qui, bien que 
longue d'exécution, est la plus facile 
à mettre en œuvre avec des grands 
entiers. La procédure récursive 
BEZOUT permet de résoudre par 
l'algorithme d'EUCLIDE l'équation 
de BEZOUT AX-BY=1 quand 
A<B. Elle est utilisée ici avec À = F, 
X=E, B=M et Y =K où 
EF = KM + 1. La procédure 
GENERATION commence par cal- 
culer la clef privée en se fixant pour 
chacun de ses entiers des limites 
supérieure et inférieure confortables 
(SUP et INF) ; puis elle calcule la clef 
publique. 


Notons que la constante TAILLE 
vaut 107, ce qui est à peu près le 
maximum que l'on puisse prendre 
avec ce programme. Mais on peut 
parfaitement utiliser ce programme 
avec une valeur plus faible. Remar- 
quons que le calcul exhaustif de tous 
les empilements lorsqu'on a 
107 jetons (i.e. le décodage de C) 
prendrait avec un ordinateur étu- 
diant 1000 milliards d’empilements 
par seconde (ne rêvons pas!) 
5000 milliards d'années ! Remar- 


quons encore que 107 n'est pas 
multiple de 6, le nombre de bits par 
éaractères, ce qui permet 
d'embrouiller encore plus un éven- 
tuel décrypteur en codant certaines 
lettres à cheval sur deux empile- 
ments. On peut prendre une 
TAILLE multiple de 6; chaque 
empilement correspond alors exac- 
tement à TAILLE/6 lettres, ce qui le 


IMÆSSAGE iNTERCE PTE , Si 





Mode d'emploi 


Signalons tout d’abord que pour 
envoyer un fichier TEXT à un cor- 
respondant on peut, soit lui envoyer 
une disquette, soit utiliser un 
modem, soit encore imprimer et 
envoyer (par radio ou par courrier) 
le texte afin qu'il soit édité et sauvé. 


Dans un premier temps, chaque uti- 
lisateur du système CCP fabrique un 
système de clefs. M. Dupont par 
exemple répondra G et DUPONT 
(ou bien # 5 : DUPONT) au pro- 
gramme CCP et l'Apple fabriquera 
sur la même disquette les fichiers 
DUPONT.TEXT (clef publique qu'il 
devra fournir à ses interlocuteurs) et 
DUPONT.DATA (clef privée qu'il 
devra garder sur une disquette dans 
un coffre à l'abri). 


Pour envoyer le message MISSIVE à 


10 








M. Durand, M. Dubois commen- 
cera par éditer son texte (en y glis- 
sant si possible de nombreux signes 
de ponctuation ne gênant pas la 
compréhension du texte, ce qui rend 
encore plus difficile tout essai de 
décryptage) et il le sauvera sous le 
nom MISSIVE.O.TEXT. Puis, ayant 
vérifié qu'il possède le fichier 
DURAND.TEXT, il répondra C, 
DURAND (ou bien # 5 : DURAND) 
et MISSIVE (ou bien # 5 :MISSIVE) 
au programme CCP qui fabriquera 
le fichier codé MISSIVE.I1.TEXT 
(sur la disquette où se trouve MIS- 
SIVE.O.TEXT), qui devra parvenir 
à M. Durand. 


Pour le décodage, ce dernier sortira 
le fichier DURAND.DATA de son 
coffre et répondra D, DURAND (ou 
bien # 5 : DURAND) et MISSIVE 
{ou bien # 5 :MISSIVE) au pro- 
gramme CCP qui recréera pour lui le 
fichier MISSIVE.O.TEXT (sur la 
disquette où se trouve MISSIVE 
1.TEXT). Notons que pendant les 
opérations de codage et de déco- 
dage, le message en clair apparaît 
sur l'écran au fur et à mesure de sa 
lecture ou de son écriture. 


En conclusion, nous avons là un 
système cryptographique très simple 
d'emploi et parfaitement sûr. Les 
temps d'exécution sont de 6 minutes 
pour écrire le système de clefs, 
d'environ 9cps (caractères par 
seconde) pendant le codage et 
d'environ 5 cps pendant le déco- 
dage. Mais ces temps diminuent for- 
tement avec la constante TAILLE et 
il y a un compromis à trouver entre 
la vitesse d'exécution et la sécurité 
du codage. Remarquons que le 
cryptosystème utilisé ne permet mal- 
heureusement pas l’authentification 
de l'expéditeur, contrairement à un 
système plus récent, développé au 
M.IT., dans lequel les clefs publique 
et privée ont des rôles symétriques. 
Mais ce dernier système est pratique- 
ment impossible à mettre en œuvre 
sur Apple Il car il utilise de très 
grands nombres premiers. 


Bibliographie 


« La guerre des codes secrets » par 
David Kahn chez Inter Editions est 
un excellent ouvrage sur l’histoire du 
chiffre. Dans «Les progrès des 
mathématiques », Pour la Science 
publie un recueil de ses articles de 
mathématiques dont « Les mathé- 
matiques de la cryptographie à clef 
révélée », écrit par l’un des auteurs 
du système à empilement. 
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STR(ENT,9) ; WRITELN(CODE, S) ; 
END 
UNTIL EOF(CLAIR) ; 
CLOSE(CLAIR) ; CLOSE(CODE , LOCK) 
END; (XCODAGEX) 


CXXXXXXXXXXXX) 
(X DECODAGE XX) 
CXXXXXXXXXXXX) 


PROCEDURE DECODAGE ; 

VAR 1,J,K :INTEGER; 
S : STRING; 
ENT  :ENTIER:; 


BEGIN CXDECODAGEX) 
NOMFICHIER(*'UVOTRE NOM: °,13) ; 
CXHI-X) 
RESET(PRIVEE , CONCAT (NOM, ‘ . DATA’ )) ; 
IF IORESULT<S38 THEN DEHORS:; 
CX$I1+%X) 
PAGE OUTPUT) ; WRITELN(C’LECTURE DE LA CLEF PRIVEE”); 
FOR 1:=1 TO TAILLE DO 
BEGIN 
IF EOF(PRIVEE) THEN SORTIE; ECRIS(I); 
CLEFLI]1:=PRIVEE" ; GET(PRIVEE) 
END ; 
IF EOF(PRIVEE) THEN SORTIE; BASE:=PRIVEE"; GET(PRIVEE) ; 
IF EOFC(PRIVEE) THEN SORTIE; INVFACTEUR:=PRIVEE" ; 
NOMFICHIER(’NOM DU MESSAGE: ’,11);: 
CXHI-X) 
RESET (CODE , CONCAT (NOM,”’.1.TEXT’)): 
IF IORESULT=8 THEN REWRITE(CLAIR, CONCAT(NOM,’.8.TEXT’)); 
IF IORESULT<>@ THEN DEHORS; 
CXHI+X) 
FAI TMODTAB(INUFACTEUR) ; 
PAGE <OUTPUT) ; WRITELNK ’ DECODAGE‘) ; J:=0; K:=0; 
REPERT 
RERDLN(CODE ,S) ; PRENENTIER(S,ENT) ; MODULOK(ENT) ; 
FOR I:=TAILLE DOMNTO 1 DO 
BEGIN 
J:=J+1:; K:=2X*XK+1; 
IF PLUSGRAND(CLEFLIIJ,ENT) THEN K:=K-i 
ELSE ENT :=ENT-CLEFCI]; 
IF J=é THEN 
BEGIN 
IF K=63 THEN BEGIN WRITELN; WRITELNCCLAIR) END 
ELSE BEGIN WRITEC(CHR(K+32)) ; WRITE(CLAIR,CHR(K+32)) END: 
J:=0; K:=8 
END 
END ; 
IF NOT EGAL(CENT,68) THEN SORTIE 
UNTIL EOF(CODE) ; 
CLOSE(CODE) ; CLOSE(CLAIR, LOCK) 
END; CXDECODAGEX) 





CXXXXXXXXXXLXAXXXXXXXXXXXXI 
CX GENERATION D’UNE CLEF X) 
CXXXXXXXXXEXXXXXXEXXXXXLXX) 
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PROCEDURE GENERAT I ON ; 


VAR I :1..TAILLE; 
S : STRING; 
BON : BOOLEAN ; 


INF ,SUP,BIDON :ENTIER; 


PROCEDURE ALEATOIRE(UVSR ENT : ENTIER) ; 
VAR I sl: 
8,B :ENTIER; 
BEGIN 
A:=INF; B:=SUP; 
REPEAT 
ENT :=<A+B) DIU 2; 
IF NOT EGAL(A+B,2XENT) THEN ENT :=ENT +RND ; 
IF RND=6 THEN B:=ENT ELSE 4:=ENT 
UNTIL PLUSGRAND(3,B-—À) ; 
ENT :=û; IF EGAL(2,B-A) THEN ENT :=ENT +RND 


END : 


PROCEDURE BEZOUT(A,B:ENTIER; VAR X,Y:ENTIER) ; 
VAR Q,R :ENTIER; 
BEGIN 
X:=035 Y:=08; 
IF BON THEN 
BEGIN 
G:=B DIV À; 
IF EGAL(B,GXA) THEN IF EGAL(A,1) THEN 
BEGIN Y:=1; X:=B+1 END 
ELSE BON:=FALSE 
ELSE BEGIN 
B:=B-0Xh; R:=A DIV B:; 
IF EGAL(A,RXB) THEN IF EGAL(B,1) THEN 
BEGIN Y:=Â-1; X:=1+0QXY END 
ELSE BON:=FALSE 
ELSE BEGIN 
A:=A-RXB; BEZOUT(A,B,X,Y) ; 
V:=Y+REX:; X:=X+0XY 
END 


END 
END ; 





BEGIN (XGENERAT I ONX) 
NOMFICHIER(’UOTRE NOM: *’,13) ; 
CXHI-X) 
REWRITEKXPRIVEE , CONCAT (NOM, ‘ . DATA‘) ; 
IF IORESULT<>8 THEN DEHORS; 
CX$1+%X) 
SUP:=10; INF:=33; 
PAGE ( OUT PUT) ; WRITELNC’ECRITURE DE LA CLEF PRIVEE"); 
FOR I:=1 TO TAILLE DO 


BEGIN 
_ ALEÂTOIRE(CLEFLIJ); PRIVEE" :=CLEFLI1); PUT(PRIVEE) ; 


ECRIS (I1)3 INF:=INF+CLEFLIJ; SUP:=2XSUP 
END ; 
INF:=SUP; SUP:=2XSUP ; 
ALEATOIRE(BASE) ; PRIVEE :=BASE; PUT(PRIVEE) ; 
WRITE(’.’)3 INF:=BASE DIV 2; SUP:=BÂASE; 
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REPEAT 
ALERATOIRE(FACTEUR) ; WRITE(’.’);3 
BON:=TRUE; BEZOUT(FACTEUR, BASE , INVFACTEUR , BI DON) 
UNTIL BON: 
PRIVEE :=INUFACTEUR; PUT(PRIVEE) ; CLOSE(PRIVEE, LOCK) ; 
CXHI-X) 
REHWRITE< PUBLIQUE , CONCAT (NOM, ’.TEXT‘)); 
IF IORESULT<>8 THEN DEHORS; 
CX$1+X) 
WRITELN3; WRITELN; WRITELNC’ECRITURE DE LA CLEF PUBLIQUE”); 
FAI TMODTAB(FACTEUR) ; 
FOR 1:=1 TO TAILLE DO 
BEGIN 
MODULO(CLEFLI1J)3; ECRIS(I); 
STR(CLEFLI1,S) ; WRITELN(PUBLIQUE,S) 
END ; 
CLOSE PUBL I QUE , LOCK) 
END; CXGENERAT I ONX) 


BEGIN €CXMENUX) 
CR:=CHR( 13); BS:=CHR(S) ; PAGECOUTPUT) ; RANDOMIZE; 


MESSAGE( 2,” OLIVIER HERZ PRESENTE C.C.P.°); 
MESSAGE(S , ‘ SYSTEME COMPLET DE‘); 
MESSAGEX 7,” CRYPTOGRAPHIE À CLEF PUBLIQUE. °); 
MESSAGEX 11,° G)ENERER VOTRE SYSTEME DE CLEFS’); 
MESSAGEX 13, ° C) ODER UN MESSAGE”) ; 

MESSAGEX 15,” D) ECODER UN MESSAGE ‘) ; 

MESSAGEX 17,’ Q)UITTER LE SYSTEME C.C.P.°); 


MESSAGE(298,’ VOTRE CHOIX:°); 
COMMANDE :=PRENCAR(LI /G°,/C°,/D°,°0°,'9°,’c’,’d°,’q’1); 
CASE COMMANDE OF | 
26’ ,’g’ :GENERATION; 
‘C’,’c’:CODAGE ; 
D’ ,’d’ :DECODAGE 
END 
END; (XMENUX) 


BEGIN (XCRYPTOGRAPHIEX) 
REPEAT MENU UNTIL COMMANDE IN L[‘'0G°,°q°1 
END, CXCRYPTOGRAPHIEX) 
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Etudiants lycéens lisez 





Lycéens, étudiants, enseignants, parents : l’équipe de la revue 
L'ORDINATEUR INDIVIDUEL publie un numéro spécial 
hors-série qui fait le point sur l’ordinateur à l’école. 

e Un ordinateur dans une classe ? 























| LCErt e Comment l’enseignement peut-il être facilité par un 
PE — ordinateur individuel ? 
N e À partir de quel âge peut-on découvrir l’informatique ? 
e Quelle aide un ordinateur familial apporte-t-il sur le plan 
éducatif? 
L. e Comment créer et gérer un club d’informatique individuelle 
tt dans un établissement scolaire ou universitaire ? 
sors: _ en Toutes les réponses à ces questions (et à d’autres!) figurent 
Ds EEE TT dans ce dossier indispensable réalisé à partir d’une synthèse 
HTEEELSE des meilleurs articles parus dans 
ra | \ Lt d L'ORDINATEUR INDIVIDUEL. 
OR ul En 1983, il n’est plus raisonnable d’ignorer le formidable outil 
Lt a qu'est l'ordinateur. Pour être mieux informé sur ce domaine, 
PLU lisez L'ORDINATEUR ET L'ÉCOLE. 
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Graphique, quand tu nous tiens. 


On peut reprocher aujourd'hui à 
l'Apple Il un écran graphique man- 
quant de finesse : la nouvelle géné- 
ration de micro-ordinateurs exprime 
souvent ses aptitudes graphiques en 
centaines de milliers de points, par 
exemple 800 x 400, plutôt qu’en 
dizaines de milliers : 280 x 192. 
N'oublions quand même pas qu'il y 
a seulement trois ans l'Apple II était 
le phénix des hôtes de ces vergers, 
car, à ce prix, les possibilités graphi- 
ques étaient rares. 

L’Apple IT garde une caractéristique 
particulière attrayante, celle de la 
double page graphique. Pour peu 
que l’on possède une imprimante 
capable d'en tirer le meilleur parti, 
nous voilà bien armés. C'est le cas 
avec l'EPSON MX FT munie de 
l'interface graphique EPSON pour 
Apple Il. 


Quelles sont les possibilités offertes ? 


D'abord, celles qu'’offrent la plupart 
des imprimantes graphiques moder- 
nes : 

— noir sur blanc ou blanc sur noir 
— simple ou double dimension 

et ceci, bien entendu, en utilisant la 
page graphique 1 ou 2 au choix. 


Ensuite, et c’est la grande originalité, 
des combinaisons en une même 
impression du contenu des deux 
pages. 

— impression côte à côte du con- 
tenu de chacune des deux pages 
(ex. 1) ; 

— opération logique « ET » (produit 
logique) donnant l'impression des 
points communs aux graphes des 
deux pages, et de ceux-là seulement 
(ex. 2) ; 

— opération logique « OÙ inclusif » 
(somme logique) donnant l’impres- 
sion de tous les points figurant sur au 
moins l’un des deux graphes 
(ex. 3) ; 

— opération logique « OÙ exclusif » 
(différence symétrique) donnant 
l'impression de tous les points qui 
figurent sur l’un des deux graphes, et 
pas sur l’autre (ex. 4). 

Ces opérations sont bien sûr compa- 
tibles avec les précédentes. 

Il existe également une possibilité de 
n'éditer qu'une fraction de graphe, 
désignée par sa position sur l'écran, 
en référence aux lignes et colonnes 
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de même emplacement dans le 
mode texte. 


Le programme ci-après permet 
lexploitation par un questionnaire 
en séquence de ces diverses possibi- 
lités (à l'exception de la dernière 
citée). Il permet aussi : 

— de visualiser le ou les graphes 
choisis, de permuter les deux pages, 
de revenir au menu ; 

— de choisir entre l'impression de 
graphes déjà existants en machine (il 
peut alors être utilisé en sous- 
programme d’un programme gra- 
phique) et la recherche sur disques 
de graphes préenregistrés. 


Mais tout ceci n'est-il pas un jeu de 
l'esprit ? Pour nous convaincre du 
contraire, nous allons examiner 
quelques cas d'application. 


Graphe double dimension 
Cette formule est idéale pour créer : 
e des pages de titres, 
e des transparents 
projecteur. 


pour rétro- 


Intersection de deux 
graphes 

Permet par exemple de détecter 
immédiatement les points communs 
à deux schémas de circulation afin 
de détecter d'éventuels «points 
noirs» (ex. 5). 


Union des deux graphes 


Permet d'utiliser «un fond de plan» 
et d'y placer, successivement, divers 
tracés. Par exemple, une carte sur 
laquelle on trouvera les villes, puis 
les richesses minières, etc. 


Différence 

de deux graphes : 

Permet de repérer immédiatement 
les modifications apportées à un gra- 
phe entre deux versions successives 
(ex. 6) 

L'imagination des «dingues du gra- 
phe » étant sans limites, bien d’autres 
applications peuvent être trouvées. Il 
est même probable que d’autres 
imprimantes offrent ou offriront des 
possibilités du même ordre. 


N.B. L'Apple Ile, et autres nouveautés 
Apple, conserveront-ils cette double 
page graphique ? 


Guy Mathieu 


Programme 

et commentaires 

1 à 900 : paramètres d'’initialisation 
et tracés - tests sur pages 1 et 2. 
200 : affichage des pages graphi- 
ques. 

5 000 : déroulement du questionne- 
ment. 

6 000 : mise en route de l’impres- 
sion. 

10 000 : recherche de graphes sur 
disques. 

30 000 : sous-programme d'attente. 


Mode d'emploi 

N'oubliez pas que la carte graphique 
Epson est telle que deux graphes 
sont toujours tracés côte à côte en 
format normal. Ces deux graphes, 
différents dans le cas de notre option 
COTE A COTE, sont identiques 
dans tous les autres cas. 

Le graphique de la page 18 illustre la 
séquence des questions posées par 
le programme à l'utilisateur. 
Remarque : si l’on répond 1 (COTE A 
COTE) à la troisième question, il faudra 
ultérieurement penser à placer les gra- 
phes dans le deux pages pour qu'ils se 
présentent dans l’ordre convenable à 
l'édition. 

Exemple d'utilisation 

Nous cherchons à imprimer côte à 
côte deux graphes sauvés sur une 
disquette sous les nom CHATS 1 et 
CHATS 2. Il faut exécuter le pro- 
gramme puis placer la disquette 
dans le lecteur et suivre la séquence 
suivante : 


Question Réponse Choix 
1 3 Les deux pages 
2 1 Normal 
o 1 Côte à côte 
4 N Pas en mémoire 


Ensuite, choisir l'option CATALO- 
GUE, amener face à CHATS 1 et 
faire RETURN. Venir après 
CHATS 1 et faire RETURN pour le 
changement. Suivre la même 
séquence pour CHATS 2. Enfin, 
dans le menu, choisir 1 (vérification 
de la page 1), puis 2 (page 2), ESC 
(retour) et enfin RETURN (impres- 
sion). 











Exemple 1 — Page 2. 


Exemple 1 — Page 1. 
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Exemple 3 — Page 1 “OU (inclusif}” page 2. 


Exemple 2 — Page 1 “ET” 2. 








Exemple 4 — Page 1 “OU (exclusif)” page 2. 
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Exemple 5 : 


Sécurité Incendie 


< 



































Page 1 — Sécurité Incendie. 
Plan d'évacuation des agents. 


ESS 
Batiment BE 

HOUSTON 

STROBE 


Page 2 — Sécurité Incendie. BRYANS 
Circulation des véhicules de secours. CALCOMP 
Ensemble Traceur et logiciel à partir de 10.000 F HT. 


Votre APPLE ]1 sait aussi dessiner sur un traceur de courbes, 
mais encore lui faut-il un logiciel puissant pour faciliter 
votre travail. 


Notre logiciel, utilisable en Basic, vous permet de composer 
facilement vos graphiques comme sur un traceur de haut de 
gamme. 


Avec une programmation de quelques lignes, nos sous-pro- 
grammes traceront pour vous : 

droites, courbes, histogrammes, axes, grilles, titres, annota- 
tions, cercles, rectangles, flèches, etc … 


Traceurs au format A3 et A4 





Batiment À 


— QUE 
MICROINFORMATI 
OTRE DISPOSITION 


TENDUE 
CS, E LOGICIELS 





Page 1 “ET” Page 2 — Sécurité Incendie. 


Identification des “points noirs”. MINIGRAPHE 
MICROINFORMATIQUE 


263, Boulevard Jean-Jaurès, 92100 Boulogne 
Tél. 608.44.31 
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Question 1 Question 2 Question 3 Question 4 Menu 









Format normal 1 Examen de 
la page 1 
1 — Page 1 ile 
Normal Format double 
Dessin ; 2 Examen de 
en mémoire la-page 2 
2 — Page 2. 
jt de à Catalogue 
Côte à côte et‘choix ESC“ 
Dessin non Menu 
en mémoire 
Inverse Intersection À | 
3 — Les 2 si 2 pages RETURN : 
Impression 
Union 
Retour à la 
Différence question 4 


Graphe du mode d'emploi 


Une informatique de gestion adaptée aux besoins des gestionnaires et réalisée par des gestionnaires, 


ETUDIE e opportunité d'utilisation de l'outil micro-informatique 
e intégration entre informatique traditionnelle et personnelle 
e politique de la communication dans l’entreprise 





F ORME e formation à l’utilisation de la micro-informatique 
REALISE e réalisation de programmes à la demande 


LIVRE e livraison de systèmes clés en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 


Nous sommes gestionnaires avant d'être informaticiens. L'informatique doit s'adapter à l'homme, et non l'inverse. 
L'outil micro-informatique répond particulièrement bien à ce souci de qualité et d'efficacité du travail, 
dans des conditions conviviales. 
Nombreuses références en informatique traditionnelle - divers matériels - et en informatique individuelle - principalement 
Apple - auprès des PME et des groupes industriels. 


log MO :2 Centre La Châtaigneraie - 29, avenue de Versailles - 78170 La-Celle-St-Cloud - Tél. : (3) 918.13.07 
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Exemple 6 : les petits chats. 1 LOMEM: 2588@ 
2 TEXT 
3 HOME 
5 DD = PEEK (48185): 1F DD = 6 OR DD 2 


2 THEN DD = 1 

18 D$ = CHR$ (4):6$ = CHR$& (722:0$ = C 
HR$ (17) :ZERO$ = CHR$ (8) 

28 HGR : HCOLOR= 3 

38 FOR I = @ TO 88 STEP 18 

35 HPLOT 1,1 TO 1,198 - 1 TO.278 - 1,19 
Oo = À TO 278 = LE Te 

48 NEXT 

58 FOR 1 = - 18 TO 18: HPLOT 139 + 1,8 
5 TO 139 + 1,185: NEXT 

68 HGR2 : HCOLOR= 3: HPLOT 8,8 TO 8,198 
TO 278,198 TO 278,8 TO 6,8 

78 FOR I = 6 TO 88 STEP 18 

25: HPÉOT 199,170 I.,95 T0 139,196 ="1 + 
O 278 - 1,95 TO 139,1 

88 NEXT 

85 FOR 1 = - 18 TO 18: HPLOT 139 + 1,8 
5 TO 139 + 1,185: NEXT 

950 GOTO 5888 

288 REM PERMUT. PAGES 

218 POKE - 16384,8 

215 1F PAGE = 1 THEN POKE - 16388,8 

228 IF PAGE = 2 THEN POKE - 16299,8 

258 RETURN 

5888 REM MENU PRINCIPAL 

58189 TEXT : HOME 

5828 VTAB ji: PRINT "ICERE PAGE) - 2CEME 

PAGE) — 3(LES DEUX) REPONDEZ PAR 
1,2 OÙ 3 S.V.P. "; 

5939 GET 2$ 

5848 P = VAL (2$): IF P < 1 OR P > 3 TH 
EN PRINT G$: GOTO 5810 





5858 PRINT 
5188 UTAB 4: PRINT "1 (NORMAL) - 2 CINV 
ERSE) REPONDEZ PAR 


1 OU 2 S.V.P. "; 

5119 GET 2$ 

51286 1 = VAL (2%): 1F1<10R 1 > 2 TH 
EN PRINT G$: GOTO 5188 

5138 I = (I — 1) X 32 

5148 PRINT 

52868 IF P < 3 THEN 5388 

a : SL fie 52189 VTAB 7: PRINT "1 (COTE À COTE) - 2 

Page 2 : — Situation d'arrivée. CINTERSECTION) - 3 (UNION) - 
4 (DIFFERENCE) REPON 
DEZ PAR 1, 2, 3 OÙ 4 S.U.P. *; 

5229 GET 2% 

5238 L = VAL (29): 1F L < i OR L > 4 TH 
EN PRINT G$: GOTO 5218 

5248 L = (L - 1) X 4: IF L = 12 THEN L = 


lé 
8 5258 PRINT 


5308 IF P = 3 AND L = 6 THEN 5488 
5318 VTAB 11: PRINT "1 (FORMAT NORMAL) 
Etat — 2 (FORMAT DOUBLE) REPONDEZ PA 

R 1 OÙ 2 S.U.P. 2: 

5328 GET 2$ 

5338 D = VAL (2#$): IF D < 1 OR D > 2 TH 

E& EN PRINT G$: GOTO 5318 

5348 D = (D - 1) %X 64 

5358 PRINT 

5488 COEFF = P + L + 1 + D 

5588 VTAB 15 

5518 IF P < 3 THEN PRINT “LE DESSIN ES 
T-IL DEJA EN MEMOIRE?" 

5512 IF P = 3 THEN PRINT "LES DESSINS 

SOMME logique : Ceux qui ont bougé entre 1 et 2. SONT-ILS DEJA EN MEMOIRE?" 





HR RNRIRRRS Ron PIN NN 
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5515 PRINT “REPONDEZ PAR O OÙ N S.V 
Ps 3 
59328 GET Z$ 
5538 IF 2$ < > "“O" AND 2$% < > “"N" THE 
N PRINT G$: GOTO 5588 
5548 PRINT 
5559 IF Z$ = "O0" THEN 5688 
5568 GOSUB 18888 
5578 PRINT D$"BLOAD" ;22$;",A$2888" 
5575 IF P < 3 THEN 56688 
5588 GOSUB 18888 
5578 PRINT D$"BLOAD" ;22$;",A$480868" 
5688 HOME : PRINT “VOUS DISPOSEZ MAINTE 
NANT DES COMMANDES SUIVANTES: * 
5619 PRINT : PRINT “1 OÙ 2 POUR FAIR 
E APPARAITRE SUR L’ EC 
RAN UNE DES 2 PAGES" 
5628 PRINT : PRINT “’ESCAPE’ POUR PASS 
ER DU MODE GRAPHIQUE AU 
MODE TEXTE (MENU) * 
5638 PRINT : PRINT “RETURN” POUR LANC 
ER L’IMPRESSION" 
5648 PRINT : PRINT "8 POUR CHAN 
GER EVENTUELLEMENT LE 
(OU LES) GRAPHE(S) * 
5658 PRINT : PRINT : PRINT "VOTRE CHOIX 
? “3: GET 2$ 
5668 HOME 
5788 PRINT 
US ss) En ——— 
DIS » = 
erwotsntbrO auog “wussanmibrO 720 dislazA saocsngioe 
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( bronsèl 9h ) XEIIE -{ 

( .A 8h = sxiozbd = C6 SOU = 2OU - 2s24oT LI à 
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+anoit 
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tstIreïrr 29-52 aol tinotdo sevcoy auov ,ie FLE 
.sè1tas"h essnacb eo relrer snseist as 


SSAUAR  EUOV 





ALIAS COR 


e( 91848 ) L 2AUO9 vb ofles 
waints 
«e5tuoixs çeuloet ,2: 


«2noifaeoup XUB 29810q8f = 29QUO0T3 15 

r + * o 
.trozcsnaisem'b atnsz 

«stnsysq aoitazr1of ob etxscseeil 

szsairqsit lb btlzo) . 
D = - = 


( saiz5cos .A.V,T ) XIAG 






TOUIS .4 SAGAA *TT ÈTE (+ JI2AZ ) S 2AUO9 . 
LONGUE eùCC 

OR UO LUE coûre tasvuoq ,titsoibnt extit 6 aonaob xi1q 
se s; .eivabtq anse ebltiboz 513$ 

Et GE 

«8 A VU 4 dax 

9 4 - 5 E JR 

En 


5738 
5748 


5758 


5768 
5778 
6888 
é818 
6812 
6815 
6828 
6838 
6858 


6868 


6878 
é888 


6898 
6188 
18888 
18848 
18858 


18855 
188468 
18865 


18878 
18888 


18878 
18895 
18188 


18158 
18288 
18488 


18418 


18428 
18588 
18688 
368886 
38818 
38838 


36848 
38858 


38868 
38878 
38188 


IF ASC (2$) 
IF ASC (2$) 
E : GOTO 5688 
PAGE = VAL (2%): IF PAGE = 1 OR PA 
GE = 2 THEN GOSUB 288: GOTO 5688 
IF PAGE = 8 THEN 5568 
PRINT G$: GOTO 5688 
REM COMMANDE IMPRIMANTE 
PRINT D$"PR#1" 
PRINT ZERO$ 
POKE 1913,COEFF 
PRINT Q$ 
PRINT D$"PR#8" 
TEXT : HOME : PRINT “VOULEZ-VOUS U 
NE AUTRE IMPRESSION ? * 
PRINT : PRINT “(REPONSE PAR O OÙ 
N S.V.P.) "; 
GET 2$ 
IF 2$ = *N*" THEN VTAB 18: HTAB 18 
: PRINT “AU REVOIR": END 
1F 2$ = *O*" THEN 5688 
PRINT G$: GOTO 6858 
REM CATALOG 
HOME : PRINT D$"CATALOG,D" ; DD 
UTAB 1: PRINT "FLECHES -2 <- POU 
R DEPLACER LE CURSEUR JUSQU’AU NO 
M VOULU PUIS ‘RETURN’ (ou 
‘RETURN’ SI LE NOM N’EST PAS AFFI 
CHE" 
W = 3:HH = 7: VTAB W: HTAB HH 
GET 2$:2 = ASC (2Z$) 
1F 2 = 13 AND W < 4 THEN HOME : 
PRINT "VOUS POUVEZ MAINTENANT CH 
ANGER DE DISQUE": GOSUB 388688: GO 
TO 18888 
1F Z2 = 8 THEN W= W -— 1j: 
< 3 THEN W = 3 
1F Z = 21 THEN W= W # 1: 
> 23 THEN W = 23 
1F Z = 13 THEN 18488 
UVTAB WW: HTAB HH 
IFZ <> 13 AND Z < 
> 21 THEN PRINT G$ 
VTAB W: HTAB HH 
GOTO 18868 
UVTAB 1: HTAB i: PRINT "AVANCER AV 
EC LA FLECHE -> JUSQU’À DEPAS-SER 
LE NOM 


13 THEN 6888 
27 THEN TEXT : 


HOM 


IF WW 


IF WW 


> 8 AND Z < 


INVERSE : UVTAB 3: PRINT " PUIS 
ETURN’ “;: NORMAL : PRINT * 


‘R 


UTAB WW: HTAB HH 
INPUT 22$ 

RETURN 

REM ATTENTE 

POKE - 16368,8 

UTAB 24: HTAB 5: INVERSE : PRINT 
"BARRE D’ESPACEMENT POUR LA SUITE 
4 

NORMAL 

IF PEEK « - 
38850 

POKE - 
PRINT 

RETURN 


16384) < = 127 THEN 


16368,8 
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Le programme GRAPHLOG est 
une illustration de l’article de Guy 
Mathieu : c'est un petit programme 
assembleur très simple, relogeable 
(c'est la mode dans ce numéro de 


Graphiques et logique 


points des pages sur lesquelles se 
réalise l'opération et C le résultat à 
mettre dans une troisième page (0 
= éteint, 1 = allumé), on obtient : 


Olivier Herz 


€e TYPE s'applique aux bits des 
points de l'écran. En ce qui concerne 
les bits de couleur (le 8e bit des octets 
de l'écran), on applique un autre 
type (TYPCOL). Pour se servir de la 
routine, il suffit de POKEr aux adres- 


Pom's!) écrit avec l’assembleur TYPE VALEUR DE C 
LISA 2.5. Il réalise une opération 0 0 ses 7 à 9 les numéros des pages gra- 
logique bit par bit sur deux pages 1 A NOR B phiques (à savoir 32, 64 ou 96 : il 
graphiques et met le résultat dans 2 A AND NOT B est très dangereux de POKEr autre 
une troisième. Par page graphique, 3 NOT B chose) et en 24 et 25 TYPE et 
nous entendons ici les intervalles 4 NOT A AND B TYPCOL respectivement, puis de 
$2000.3FFF, $4000.5FFF et 5 NOT A faire un CALL à l’adresse où l’on a 
$6000.7FFF, étant entendu que 6 A EOR B chargé cette routine relogeable. 
seuls les deux premiers intervalles 7 A NAND B 
correspondent à des pages graphi- 8 A AND B En effectuant une copie d'écran gra- 
ques vidéo ; pour voir la dernière, il 9 A = B phique à partir des écrans ainsi 
faudra faire 2000 < 6000.7FFFM ou 10 A engendrés, il vous est maintenant 
4000<6000.7FFFM en mode 11 A OR NOT B possible de faire tout ce que Guy 
moniteur. L'opération logique cor- 12 B Mathieu proposait aux possesseurs 
respond au type graphique de Pas- 13 NOT A OR B d'Epson. 
cal, repris aussi par HAIFA dans 14 AORB 

15 1 


Pom's 5. Si À et B désignent les 


Exemples : 


7 8 





négatif de la page HGR, 8 bits compris 


AND des pages HGR et HGR2 avec résultat en HGR2 et &e bits mis à 0 
OR de HGR2 et HGR : résultat dans la page “invisible” avec EOR des &: bits 





E 





RARE RETRO TN Rte 


Graphlog — Lisa 2.5 23 MEM2  EP2 $FE 
24 MEM3 EP2 $FF 
l LST 25 ; 
2 $ 26 ORG $898 3PROGRAMME RELOGEABLE 
3 RENAN EENLEX 27 (BJ 5390 
4 ;* * 28 ; 
5 5x CE PROGRAMÆ REALISE UNE X% 2 LDA #191 
6 5* OPERATION LOGIQUE SUR LES x 38 STA LIGNE 
7 3x OCTETS DES DEUX PAGES X 31 BCLELIG PHA LIGNES 31 À 47: 
8 5x GRAPHIQUES ET MET LE RE- X% 32 AND #$C8 VOIR APPLESOFT 
9 sX SULTAT DANS UNE 3EME. X 33 STA BASE 3-ROUTINE EN $F417 
18 :x k 34 LSR 
11 ;X (C) O0. HER2 POUR POM'S 7 X 3 LSR 
12 4 k % ORA BASE 
13 5 OBRGRRELEEREEERREUNX 37 STA BASE 
14 ; 38 PLA 
15 LIGNE  EP2 $ LIGNE DE L'ECRAN 39 STA BASE+] 
16 PAGEI  EPZ $7 PREMIERE PAGE 4 ASL 
17 PAGE2  EPZ $8 DEUXIEME PAGE 41 ASL 
18 PAGE3  EPZ $9 sPAGE DU RESULTAT 42 ASL 
19 TYPE EP2 $18 TYPE POUR LES POINTS 43 ROL BASE+1 
28 TYPCOL EPZ $19 sTYPE POUR LE BIT DE COULEUR 44 ASL 
21 BASE EP2 $iE sADRESSE DE LA PREMIERE LIGNE 45 ROL BASE +1 
22 MEMI EP2 $FD dé ASL 
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ROR BASE 
LDY 439 

LDA BASE+1 
AND #$1F 
ORA PAGE I 
STA BASE+1 
LDA (BASE) ,Y 
STA MEMI 

LDA BASE+1 
END #$1F 


& à 


É 
Ë 


> 
LC 
FA 
[=] 
La 
ET 


BLSISISHSIINOISSBIEGSOSRHLSSELSALEINLS 
8 Ê 


3PREPARATION DES ADRESSES 


ILIGNES 61 À 81: 
3-VOIR HAIFA 
ÿ-ROUTINE DOPRINT 


- 


SRRESSLSGSSVGERES 


Hard Copy Seikosha 


Olivier Herz 


Afin de compléter l’article de Guy 
Mathieu et celui sur « Graphiques et 
logique », voici un petit programme 
en langage machine (écrit à mes 
débuts sur Apple) permettant d’obte- 
nir la copie d'écran graphique sur 
une imprimante Seikosha. 

Ne possédant pas d'assembleur à 
l'époque, j'avais écrit ce programme 
directement en langage machine. Il 
reste toutefois intéressant à publier 
car il est assez rapide et, d'autre part, 
les possesseurs de Seikosha n'ont 
certainement pas tous un tel pro- 
gramme à leur disposition. 


La seule routine ROM utilisée est le 
WAIT $FCA8 ; le programme peut 
être utilisé par n'importe quel Apple. 


7 FAÏS ATTENTION, 
{ J'AÏ REPROGRAMMÉ 
\ LA TOUCHE RESET. 


DCH *BSAVE GRAPHLOG,A$898 ,L488° 
END 


Récapitulation 
X888.971 


6898- A9 BF 65 86 48 29 C9 85 
8888- 1E 4A 4A @5 E 85 ÎE 68 
8818- 85 1F 8A 8A BA 26 1F 8A 
8818- 26 1F 8A 66 Î1E AB 27 A5 
8826- 1F 29 1F 05 07 85 1F BI 
8828- 1E 85 FD AS 1F 29 1F @5 
8838- 08 85 1F Bi JE 85 FE A2 


0838- 88 A9 61 84 FD 98 82 A 
6848- GA 86 FE 98 81 GA EB 88 
8848- DO 05 25 19 18 99 03 25 
8858- 18 18 F@ 81 38 26 FF CA 
6858- D DF AS 1F 29 1F 05 89 
0868- 85 1F AS FF 91 ÎE 88 18 
8869- B6 Cé 86 AS 86 C9 FF D8 
8878- 93 43 
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Hard Copy Seikosha 
1LIST 


S REM XXX HARD COPY SEIKOSHA xxx 


6 REM XXXx 


COPYLEFT XXX 


7 REM X%XX%X OLIVIER HERZ - POM’S xxx 


18 


TEXT : HOME : INVERSE : VTAB 6: PRIN 
T “IMPRESSION DES 2 PAGES HAUTE R 
ESOLUTION" : NORMAL 


28 PRINT : PRINT : PRINT : PRINT "UOULE 
Z-VOUS LA PAGE 1 OÙ 2 ? “:; 
36 GET À: IF À$ < > "1" AND À < > " 
2" THEN 38 
48 PRINT A$: POKE 28,288: POKE 29,31 + 
32 X € ASC (AH) - 48) 
958 PRINT : PRINT "UOULEZ-VOUS Lé PAGE E 
NTIERE 7? ": 
68 GET AS: IF À4$ < > "O0" AND 4$ < > " 
N° THEN 68 
78 PRINT A$: POKE 24,8: IF À$ = "N'" THE 
N  POKE 24,4 
84 PRINT : PRINT "VOULEZ-VOUS L’'IMPRESS 
ION EN NEGATIF ? "3 
96 GET ÀA$: IF À$ < > "O" AND À4$ < > " 
N° THEN 98 
18@ PRINT Â$: POKE 25,8: IF À$ = "O0" TH 
EN POKE 25,i 
118 PRINT : PRINT “VOULEZ-VOUS UN CADRE 
2 3 
126 GET Ab: IF À$ < > "O" AND À$ € > 
*N" THEN 128 
138 PRINT Â$: POKE 26,8: IF À$ = "O" TH 
EN POKE 26,1 
146 PRINT : PRINT "VOULEZ-VOUS LE FORMS 
T DOUBLE ? *; 
158 GET À$: IF À$ < D "O" AND 4$ € D 
°N" THEN 158 
168 PRINT Â$: IF ÀA$ = "O0" THEN 2688 
178 POKE 27,8: POKE 235,192: POKE 236,1 
29: IF PEEK (24) = @ THEN 198 
188 POKE 237,162: POKE 38,159: GOTO 234 
198 POKE 237,194: POKE 38,143: GOTO 238 
288 POKE 27,1: POKE 235,224: POKE 236,1 
31: IF PEEK (24) = @ THEN 228 
218 POKE 237,69: POKE 30,78: GOTO 238 
226 POKE 237,133: POKE 38,46 
234 PRINT : PRINT : HTAB 3: INVERSE : P 
RINT " APPUYEZ SUR UNE TOUCHE QUE 
LCONQUE “: NORMAL : WAIT — 16384 
128: POKE - 16368, 
249 IF PEEK (6148) £ 3 1 THEN PRINT 
CHR (4) : "BLOADSEIKO.0BJ": POKE 
6148, 1 
258 POKE - 146248,8: HOME : CâLL 6149 
268 CALL — 1952: CALL — 1852: CALL - 
1852 
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SEIKO.OBJ 





Code hexadécimal 


X1880.19DfA 


1888-— 
1888-— 
1818- 
1818- 
1828- 
1828- 
18368- 
1838- 
1846- 
1848- 
i858- 
1858- 
1868- 
1868- 
1878- 
1878-— 
1888- 
1888- 
1898- 
1898- 
1848 - 
1848- 
18B8- 
18B8- 
18C8- 
18C8- 
18D8- 
18D8- 
18E8-— 
18E8-— 
18F8-— 
18F8- 
1788-— 
1988- 
1918 
1718 
1928- 
1928- 
1938-— 
1938- 
1948- 
1748- 
1958-— 
1958- 
1968- 
1968- 
1978- 
1978- 
1988- 
1988- 
1998- 
1998- 
17A8- 
19A8- 
19B8- 
19B8- 
19C8- 
19C8- 
19D8- 
19D8- 
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La souris de Lisa 


Hervé Thiriez 


Faut-il encore parler de Lisa ? Nous 
avons été abreuvés dans les jour- 
naux d'articles sur Lisa depuis sa 
présentation internationale le 19 jan- 
vier dernier. D’autre part, nous ne 
pouvons, dans une revue telle que 
Pom's, passer sous silence la nais- 
sance de Lisa. Voyons donc pour- 
quoi la souris de Lisa veut devenir 
aussi délèbre que le sourire de 
Mona... 

La première impression que dégage 
cet ordinateur de bureau — le terme 
convient ici parfaitement — est celle 
d'un équipement au design agréa- 
ble, d'apparence. professionnelle. 
Par opposition, l'Apple Il Plus, qui 
fait notre bonheur depuis si long- 
temps, suggère un peu la 2CV, avec 
son aspect rustique et son côté 
bohème. 


Lisa est un système à clavier déta- 
ché, incorporant deux lecteurs de 





disquettes 5 pouces (860K octets 
par disquette) et un écran à très 
haute résolution (720 X 364, soit 
près de cinq fois autant de points 
que pour l'Apple Il). Une surprise 
désagréable, la seule d’ailleurs : il 
n'est pas question de travailler en 
couleur ; tout le monde sait que les 
souris ne connaissent que le blanc et 
le gris. 


Seul appendice externe à l'appareil, 


relié par un fil gris lui aussi, la 
fameuse souris, qui est le mode de 
communication privilégié de l’utilisa- 
teur vers la machine. C'est grâce à 
cette souris et à la qualité graphique 
de l'écran qu'il suffit d’une demi- 
heure à un non-informaticien pour 
apprendre à utiliser Lisa. 


La souris est un petit boîtier que l’on 
fait glisser sur son bureau dans 
n'importe quelle direction. Un cur- 
seur sur l'écran est associé à la souris 
et se déplace en totale symbiose 
avec elle. L'écran présente un cer- 
tain nombre de petits dessins illus- 
trant les dossiers sur lesquels on tra- 
vaille, y compris une poubelle pour 
ceux dont on veut se débarrasser. 


Il suffit de pointer le curseur associé 
à la souris sur le dessin correspon- 
dant au dossier que l’on désire 
« ouvrir », et de confirmer son choix 
en appuyant sur la petite barre de la 


souris. Le dossier s'ouvre alors, et 
on y choisit (toujours grâce à la sou- 
ris) tel ou tel élément. 


Différents dossiers peuvent être 
ouverts simultanément, comme sur 
un bureau normal. On peut agrandir 
ou réduire les documents sur l'écran 
à volonté, ouvrir ou fermer tout dos- 
sier, passer du traitement de texte au 
Lisacalc ou au programme de réali- 
sation de graphiques. Tout cela se 








fait très rapidement, et l’on peut ainsi 
croiser ies applications : éditer en 
-traitement de texte les titres de gra- 
phiques provenant de données Lisa- 
calc ! 


À tout moment, une copie de l'écran 
peut être obtenue, l'écran incorpo- 
rant à loisir des textes (en plusieurs 
polices et tailles) et des graphiques. 


Le souci de simuler la gestion d’un 
bureau va très loin : on peut ainsi 
faire apparaître sur l’écran une calcu- 
latrice avec des touches sur lesquel- 


les on « appuie » grâce à la souris. 


Avec Lisa sont fournis en standard : 

e LisaWrite : traitement de texte 
(tailles et polices variées). 

e Lisacalc : 255 lignes, et 255 
colonnes de largeur variable. 

e Lisalist, base de données pouvant 
contenir 6000 enregistrements de 
100 caractères chacun. 

e LisaGraph, soit Visiplot en beau- 
coup plus rapide, et avec les possi- 
bilités d'édition de texte. 

e LisaDraw, outil performant pour la 
création graphique. 

e LisaProject, pour la gestion de 
projets (PERT, Gantt) jusqu’à 
1000 tâches. 

Tout cela coexiste sans effort dans le 

million d’octets de mémoire cen- 

trale, le microprocesseur MC68000 
assurant une rapidité de traitement 
inégalée en micro-informatique. 


Seul petit problème : tout le monde 
n’a pas le budget de 120 000 francs 
TTC nécessaire pour avoir le 
système complet, avec son impri- 
mante et le disque dur de 5 méga- 
octets. En outre, ceux qui désirent 
s'offrir Lisa devront encore patienter 
jusqu'en septembre. Le prix n’est 
pas donné, mais le rapport perfor- 
mance/prix est excellent en compa- 
raison avec celui des mini- 
ordinateurs de bas de gamme. 


Nous attendons aussi le discret 
Mcintosh qui, à en croire ce que j'ai 
lu dans des revues professionnelles, 
devrait proposer à un prix sensible- 
ment plus abordable les avantages 
logiciels de Lisa et de sa souris, avec 
une puissance et une capacité rédui- 
tes. 

Dès que nous aurons eu l’occasion 
de travailler réellement avec Lisa ou 
Mclntosh, nous vous ferons partager 
nos impressions plus en détail. 
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L'Apple Ile (e pour «enhanced», 
c'est-à-dire amélioré) a été annoncé 
par Apple le 19 janvier dernier. Des- 
tiné à remplacer le modèle Apple II + 
bien connu, il commence à se répan- 
dre dans les boutiques micro- 
informatiques. Grâce à l’amabilité de 
la société L.E.F., j'ai pu en avoir un 
exemplaire pendant une soirée, de 
quoi l’examiner sous toutes ses cou- 
tures. 


Première constatation : si le nom 
change, la ligne demeure : le boîtier 
est celui que nous connaissons tous. 
Seul le nom a changé pour s'adapter 
au nouveau logo. Cependant, pour 
l’'Apple-o-mane averti, pas de risque 
de se tromper pour autant : le Ile 
dispose d’un clavier plus complet qui 
se remarque dès le premier abord. 


Un clavier plus complet 


Outre ses 11 touches de plus (63 
contre 52), le clavier du Ile présente 
de nombreuses différences avec 
celui du II. Nous en commentons ci- 
dessous les plus notables. 


La touche RESET est mise à l’écart 
du reste du clavier afin d'éviter les 
fausses manipulations. De plus, le 
RESET n'est pris en compte que 
lorsque la touche CTRL est enfon- 
cée (il n’y a plus la possibilité de 
choix offerte sur le Il entre RESET 
tout seul et la double action CTRL- 
RESET). 


Les minuscules sont disponibles au 
clavier et affichées comme telles à 
l'écran. En fait, tous les codes Ascii 
sont générables au clavier. 


Une touche «Shift-lock» permet le 
blocage du clavier en majuscules. 
C'était nécessaire pour la program- 
mation en Basic (l’Applesoft, 
comme le DOS, n'accepte que les 
majuscules). Un bon point : le blo- 
cage majuscule/minuscule n'affecte 
que les touches alphabétiques. 
Appuyer sur «1» donne toujours le 
«1», quelle que soit la position de la 
touche Shift-lock. 


Quatre touches de’ gestion du cur- 
seur sont rassemblées en bas à droite 
du clavier. On y retrouve bien sûr les 
classiques flèches à droite et à gau- 
che, mais également les flèches vers 
le haut et vers le bas. 
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L’Apple Ile à l’essai 


Toutes les touches qui génèrent un 
code sont à répétition automatique. 
Le temps entre le premier caractère 
et le deuxième est relativement long, 
ce qui évitera, je pense, toute fausse 
manœuvre. En raison de cette répé- 
tition automatique, il n’v a plus de 
touche REPT (répétition). 


Deux touches marquées l’une d’une 
petite pomme vide (pomme 
«ouverte»), l’autre d’une pomme 
pleine (pomme «fermée») sont pla- 
cées de part et d'autre de la barre 
d'espacement. Elles ne génèrent 
aucun code (elles sont en fait équi- 
valentes aux boutons sur les poi- 
gnées de jeux), mais ont quelques 
fonctions particulières quand elles 
sont enfoncées en même temps que 
CTRL-RESET : 


e la pomme ouverte force l'Apple à 
redémarrer (et donc à rebooter s’il 
y a un contrôleur) quelle que soit 
la configuration. Cela devrait per- 
mettre d’épargner considérable- 
ment le bouton de l'alimentation 
qui, l'expérience le montre, sup- 
porte très mal les opérations de 
«marche/arrêt» répétitives. 


e la pomme fermée provoque l’exé- 
cution d’un autotest. 


Parmi les nouvelles touches, on 
trouve également une touche de 
tabulation «TAB» et une touche 
«DELETE» qui pourront être utili- 
sées par les logiciels prévus pour le 
Ile. 


Le clavier est utilisable en Azerty ou 
en Quwerty. La sélection est faite par 
un bouton poussoir judicieusement 
placé sous la partie inclinée de 
l'Apple. Ce bouton commande éga- 
lement le changement de caractères 
à l'écran. Les caractères français 
sont donc disponibles aussi bien au 
clavier qu’à l'écran. Malheureuse- 
ment, la disponibilité d’un double 
clavier se solde par un double mar- 
quage des touches, qui vont donc 
jusqu’à abriter 4 signes différents sur 
leur cabochon ! En langage non 
informatique, cela s'appelle un 
casse-tête chinois, et taper plus de 
dix touches sans erreur relève de 
l'exploit. Il ne semble pas qu'il existe 
pour le moment la possibilité d’un 
marquage unique (Quwerty par 
exemple). 


Jean-François Duvivier 


Comme pour le Il, un connecteur est 
toujours prévu pour le clavier numé- 
rique séparé. 


Certaines publicités ont fait état de 
touches de fonction programmables. 
La seule documentation que j'avais 
en ma possession (Manuel de Réfé- 
rence Ile) n’y faisait pas allusion. De 
même, le programme de démons- 
tration et d'introduction au clavier ne 
mentionne aucune possibilité de tou- 
ches de fonctions. 


Outre le problème de double nota- 
tion des touches, j'ai un deuxième 
regret concernant le clavier : 
l'absence de buffer. La refonte du 
clavier était l’occasion rêvée d’intro- 
duire un buffer de caractères tel 
qu'on le trouve sur l’Apple J et 
même sur le Il (avec la carte Key- 
board Enhancer de Videx par exem- 
ple). Le buffer est comme toutes les 
bonnes choses : une fois qu’on y a 
goûté, on ne peut plus s’en passer ! 


Par rapport à l'Apple II, ces connec- 
teurs ont les mêmes signaux disponi- 
bles sur leurs broches, ce qui signifie 
que la majorité des cartes d’exten- 
sion existant sur le Il sont compati- 
bles, notamment les contrôleurs de 
lecteurs de disquettes, les interfaces 
imprimantes et la Softcard Z80. Les 
exceptions sont les cartes qui 
devaient obligatoirement se mettre 
dans le slot 0 (ROMcard Applesoft 
ou Integer par exemple) et toutes les 
cartes nécessitant d’ôter un circuit de 
l'Apple pour connecter un câble à sa 
place (cas de certaines cartes RAM 
16,32,64 et 128K ou de cartes 80 
colonnes). 


La nouveauté vient d’un connecteur 
supplémentaire situé en plein milieu 
de la carte et dénommé «Connec- 
teur Auxiliaire» (quelle imagina- 
tion |). Ce nouveau connecteur 
comprend 60 contacts (contre 50 
aux connecteurs de slot). Son 
emplacement (dans le prolongement 
du slot 3) interdit son usage simul- 
tané avec le slot 3. Il est prévu spé- 
cialement pour les extensions 
mémoire et pour l'extension 80 
colonnes (de nombreux logiciels 
imposent l’utilisation du slot 3 pour 
les cartes 80 colonnes pour Apple Il, 
ce qui explique la position du con- 
necteur auxiliaire). 
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Trois cartes actuellement disponibles 
en France utilisent ce connecteur : 
e une carte 80 colonnes ; 

e une carte 80 colonnes doublée 
d'une extension mémoire de 
64K ; 

e une carte RVB Chat Mauve per- 
mettant l'obtention des couleurs 
sur un poste téléviseur SECAM, 
ainsi que l'extension 64K et 80 
colonnes. 


Le microprocesseur 6502 ne pou- 
vant pas adresser plus de 64K, 
l'extension de 64K n'est pas une 
extension de mémoire centrale à 
proprement parler. Mais elle est 
comparable aux cartes mémoires 
disponibles pour le Il (Saturn, 
Ramex, Legend...). Comme elle est 
proposée par Apple et constitue de 
ce fait un standard, de nombreux 
logiciels vont pouvoir en faire usage. 


Selon certains renseignements que 
je n’ai malheureusement pas pu véri- 
fier, l’adjonction de l'extension 64K 
permettrait de plus de disposer d’un 
graphisme haute résolution plus 
complet : 560 x 192. 


Sous le capot 


La carte mère a été totalement 
refaite : légèrement plus petite, elle 
s'arrête avant le clavier, ce qui per- 
met d'accéder à tous les circuits sans 
démonter autre chose que le capot. 
Le nombre de circuits intégrés est 
passé d'environ 90 à 35. Cette 
réduction permet d'espérer bien 
entendu une fiabilité accrue. Elle 
s'accompagne également d’une 
réduction de la consommation de la 
carte mère. L'alimentation étant res- 
tée la même, on dispose ainsi de 
plus de puissance sur les slots. 


Le gain de circuits est essentielle- 
ment dû à l'intégration de plus en 
plus poussée des composants utili- 
sés. Par exemple, les mémoires 
vives RAM utilisées sont des 64 Kbits 
au lieu de 16, ce qui permet de faire 
64 Koctets avec seulement huit cir- 
cuits. De même, les mémoires mor- 
tes utilisées sont des 32 Kbits au lieu 
de 16. Enfin, deux circuits à 40 pat- 
tes trônent en plein milieu de la 
carte. Dénommés MMU (Memory 
Management Unit) et IOU (Input 
Output Unit), ils ont été réalisés spé- 
cialement pour Apple (il coulera de 
nombreux bits dans votre Apple 
avant que vous ne puissiez acheter 
un Île made in Taiwan !!!) 


L'utilisation de mémoires repro- 
grammables pour le codage clavier 


et pour la génération vidéo des 
caractères permet une très grande 
souplesse. Chaque pays a sa version 
nationale du Ile, disposant en plus 
du Qwerty, d'un clavier équipé des 
caractères spécifiques à la langue, et 
de leur génération à l’écran. 


En ce qui concerne la génération 
video, il faut préciser que les Ile ven- 
dus en France sont équipés en stan- 
dard d’un modulateur PAL sélecta- 
ble par switch (sur la carte mère). 
Les possesseurs de postes de télévi- 
sion bi— ou tristandards pourront 
donc profiter directement des cou- 
leurs, sans aucune carte supplémen- 
taire. Les autres devront se conten- 
ter du noir et blanc ou attendre l’arri- 
vée imminente d’une carte «Chat 
Mauvre » adaptée au Ile (pour vous 
consoler, sachez que le standard 
SECAM est techniquement le meil- 
leur...). 


Trucs et astuces 


De l'utilité 
du symbole « : » 


] : READ permet de lire les 
DATA d’un programme (arrêté 
par CTRL-C, par exemple), alors 
que ] READ donne le message 
NOT DIRECT COMMAND de la 
commande READ du DOS. 


J:INx#0 : PR#O permet de 
déconneter de DOS. Pour le 
reconnecter : CALL 1002 ou 
*3D0G ou RESET. 


Parfois, ] PR#6 ne marche 
plus pour rebooter (quand par 
exemple la commande PR # du 
DOS a été endommagée). Pour 
s'en sortir sans devoir éteindre 
l'appareil, faire ]: PR#6 ou 
*6CTRL-P. 


La raison de tout cela tient au fait 
que le DOS intercepte les com- 
mandes tapées en début de ligne 
au clavier, avant de redonner le 
contrôle à l’Applesoft (ou au 
moniteur). D'où des problèmes 
avec les commandes synonymes 
entre le DOS et Applesoft : 
PR#, IN # et READ. 


Ainsi, si l’on entre en mode direct 
A=3 : CATALOG, l'instruction 
CATALOG du DOS n'est pas 
reconnue. C'est comme cela 
que]: PR #6 active le «PR # » de 
l'Applesoft (qui marche toujours, 
s'il est résident) et non celui du 
DOS, qui peut avoir été écrasé. 


Du côté des slots. 


Sept connecteurs (slots) numérotés 
de 1 à 7 sont disponibles. Il est à 
noter qu'il n’y a donc plus de slot O. 
L'explication en est simple : étant 
donné la présence sur la carte mère 
de 64 K de mémoire vive, le slot Q 
est considéré comme étant occupé 
par une carte langage 16 K. 


Petit détail intéressant : la présence 
à côté des slots d’un témoin de ten- 
sion (plus d’excuses pour les cartes 
mises ou enlevées avec l'Apple en 
marche !). On note également le 
blindage complet de l'arrière de 
l'Apple, désormais en métal et soli- 
daire de la plaque du fond. Les 
grandes échancrures ont laissé la 
place à de multiples ouvertures pré- 
vues pour la fixation de connecteurs. 
Ceci devrait permettre de ne plus 
avoir à démonter l'Apple pour bran- 
cher le câble de l'imprimante ou de 
toute autre carte interface. Autre 
amélioration pour les fanas de jeux : 
un connecteur situé à côté de 
l'entrée cassette permet de brancher 
les manettes de jeux sans avoir à 
démonter le capot et surtout sans 
devoir se munir d’une loupe pour 
effectuer le branchement ! 


Les logiciels 


Quant à son utilisation, le Ile se com- 
porte comme un Il équipé d’une 
carte langage. Le langage résident 
est le Basic Applesoft qui n’a pas 
bougé d’un iota. Les disquettes sont 
toujours au format DOS 3.3. En fait, 
il semble que les seules modifications 
« soft» effectuées concernent le 
moniteur (Prom F8), qui a été entiè- 
rement réécrit. Toutes les routines 
de gestion écran ont été modifiées 
pour prendre en compte la présence 
éventuelle d'une carte 80 colonnes. 
De même, les routines concernant le 
clavier autorisent l’utilisation des 
minuscules. Enfin, un autotest a été 
ajouté (activé par les touches CTRL- 
RESET-pomme fermée). Comme 
ces modifications ont nécessité plus 
de place mémoire, l'espace $C100- 
$C7FF auparavant dédié à l’adres- 
sage des slots est maintenant sélecta- 
ble entre les slots et une Prom. 


Malgré toutes ces modifications, les 
principaux points d'entrée du moni- 
teur ont été gardés aux mêmes 
adresses. Vous pourrez toujours, par 
exemple, passer en mode moniteur 
en tapant CALL-151. Ainsi, sur 
300 programmes commerciaux tes- 
tés sur Apple Ile, j'ai lu que 95 % 
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avaient tourné du premier coup et 
3 % après quelques légères modifi- 
cations. 


Pour ma part, tous les logiciels que 
j'ai essayés ont parfaitement tourné, 
ce qui est rassurant du point de vue 
compatibilité. 


Et le portefeuille. 


De même que pour l'Apple II ces 
derniers mois, le Ile sera essentielle- 
ment vendu sous forme d’une confi- 
guration comprenant un Île 64K, un 
contrôleur, un drive et un moniteur 
à écran jaune. Les cartes d'extension 
spécifiques au Île sont la carte Apple 
80 col., la carte 80 col. + 64 Ket la 
carte Chat Mauve. Il est à noter que, 
si cette dernière était disponibles par- 
tout, les deux autres étaient totale- 
ment inconnues à deux des cinq 
boutiques consultées. Les prix TTC 
que jindique ci-dessous résultent 
d'un sondage effectué par téléphone 
auprès de cinq boutiques parisien- 
nes : 


e configuration : 
de 14 700 à 14995 F 


e Apple Ile seul : 
de 9900 à 11950 F 


e carte 80 col. : 
de 900 à S999F 


e carte 80 + 64 K : 
de 2300 à 2400F 


e carte « Chat Mauve » : 
environ 3 000 F 


On remarquera, en dehors du cas 


particulier de l'Apple Ile seul, que les 
prix varient très peu d’un revendeur 
à l’autre, résultat de l’uniformisation 
des prix imposée par Apple-Seedrin. 


Conclusion 


J’ai rencontré deux problèmes parti- 
culiers sur l'exemplaire qui m'a été 
prêté: D'une part, la commande 
PR # suivie d’un numéro correspon- 


dant à un slot vide sélecte la pre- 


mière carte trouvée dans un slot 
supérieur. C'est ainsi qu'un PR # 4 
fait rebooter le disque, bien qu'il n'y 
ait aucune carte dans le slot 4 Île 
contrôleur étant en 6/!). D'autre 
part, il semble que l'Apple dont je 
disposais avait quelques difficultés à 
s'initialiser correctement après des 
coupures de tension brèves (infé- 
rieures à 2 secondes), ce qui m'arri- 
vait lorsque j'utilisais l'interrupteur 
de l’alimentation pour faire rebooter 
l'Apple. 

En dehors de ces problèmes 
mineurs, il faut souligner l'excellente 
compatibilité du Ile avec son prédé- 
cesseur le I1+, tant au niveau du 
matériel (j'ai essayé sans problème 
toutes mes cartes interfaces, V com- 
pris une extension 128K Saturn) que 
du logiciel. 


Cependant, je dois dire que cette 
première confrontation avec le Ile 
m'a laissé un sentiment de décep- 
tion. Attendant avec impatience ce 
successeur de l'Apple Il, je me suis 
retrouvé en face de la même 
machine, mais incapable de taper 


trois touches de suite ! Cette impres- 
sion d'absence de nouveauté a été 
certainement accentuée par le fait 
que je dispose déjà des minuscules 
sur mon Apple Il. D'autre part, je 
n'ai pas pu emprunter d’une carte 
extension 80 colonnes pour mon 
essai, ce qui ne m'a pas permis 
d'apprécier le confort apporté par les 
80 colonnes. 


Autre déception : les prix. Compte 
tenu d’un abaissement vraisemblable 
des coûts de production (carte plus 
petite, nombre de circuits en 
baisse...), on pouvait rêver à des 
prix inférieurs à ceux du Il. Hélas, le 
Ile affiche un bon 2 000 F de plus. 
Comme, d’autre part, le Il ne sera 
plus vendu, il s'ensuit une augmen- 
tation importante du système -mini- 
mum qui atteint maintenant les 
15 000 F. Si cette somme ne consti- 
tue pas un problème pour les utilisa- 
teurs professionnels (très majoritai- 
res il est vrai), elle devient fort diffi- 
cile à réunir, en cette période de 
crise, par un utilisateur individuel qui 
préfèrera alors se reporter sur des 
machines plus accessibles. L'évolu- 
tion dans le domaine de la micro- 
informatique se traduit d’habitude 
par « plus puissant et moins cher ». 
Il semble que ce ne soit plus le cas 
désormais chez Apple. Dommage ! 


Ceci dit, l'Apple Ile a pour avantages 
sa compatibilité et sa fiabilité plus 
grandes. Si l'on pouvait avoir une 
version Azerty simple (16 cabochons 
à changer), ce serait beaucoup 
mieux ! 





Des programmes relogeables 


Les programmes en langage 
machine dépendent en général de 
l'adresse à partir de laquelle ils ont 
été assemblés et ne peuvent de ce 
fait « fonctionner » que s'ils sont lan- 
cés à partir de cette adresse. Si nous 
voulons qu’un programme se char- 
geant en haut de la mémoire puisse 
fonctionner sans problème avec un 
Apple de 16, 32 ou 48 K, il nous 
faudrait normalement prévoir trois 
versions du même programme |! 


La solution évidente d’un tel pro- 
gramme consiste naturellement à 
écrire des programmes indépen- 
dants de leur origine, c’est-à-dire des 
programmes relogeables (relocatable 
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programs), exécutables quelle que 
soit leur origine. 


Les deux obstacles principaux à de 
telles pratiques sont les branche- 
ments inconditionnels (JMP, abré- 
viation de « jump », l'équivalent en 
assembleur du GOTO) et les appels 
à des sous-programmes (JSR, 
« jump to subroutine », l'équivalent 
du GOSUB) comme le montre le 
petit programme ci-dessous : 


1: JMP DÉBUT 
2 DÉBUT JSR RIEN 

3 BRK 

2* 

5 RIEN RTS 

6 * 


Philippe François 


Le problème posé par les JMP se 
résout aisément : il suffit de rempla- 
cer ces branchements incondition- 
nels (dont les adresses sont explici- 
tes) par des branchements condi- 
tionnels forcés. En effet, les branche- 
ments conditionnels du type BEQ, 
BNE,. étant des branchements 
relatifs, ils ne dépendent pas de 
l'adresse d'implantation du pro- 
gramme. On remplacera donc tous 
les JMP du programme par un des 
couples d'instructions suivant : CLC 
et BCC, ou bien SEC et BCS. 


1 ére. 
2 BCC DÉBUT 
3 
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4 DÉBUT JSR RIEN 
5 BRK 

6 * 

7 RIEN RTS 

8 L2 


Un petit problème encore, à propos 
de ces branchements conditionnels 
forcés : les déplacements étant rela- 
tifs et s'exprimant sur sept bits (le bit 
huit indiquant le sens du déplace- 
ment, en amont ou en aval de la 
présente adresse) ne pourront être 
supérieurs à 126 octets dans un sens 
ou dans l’autre. 

Toute tentative de dépassement de 
cette limite sera sanctionnée par le 
fatidique message OUT OF RANGE 
ERROR de l’assembleur. 

La technique employée alors sera 
celle de l'ascenseur comme le mon- 
tre l'exemple suivant : 


ORG $800 

CLC 

BCC ETAGE 

| ; suite du programme 
| SEC . 
ETAGE  BCC DEBUT 


. ; suite du programme 


DÉBUT  JSR RIEN 


Le problème posé par les JSR se 
résout moins aisément. Néanmoins, 
l'examen attentif des programmes 
machines relogeables du commerce 
(AMPER MAGIC, pour n'en citer 
qu'un), ainsi que la lecture d’un petit 
article dans Apple Assembly Lines 
(Vol. 2, N° 10, juillet 1982), nous 
ont permis de comprendre la façon 
dont il pouvait se résoudre : 


A la place de chaque JSR (nom du 
sous-programme), placez les trois 
lignes suivantes : 


CLV 
JSR $FF58 


BVC (nom du sous-programme) 


Mystérieux, n'est-ce pas ? Commen- 
tons donc cette séquence. L’octet 
placé à l'adresse $FF58 de la ROM 
Moniteur est toujours égal à $60, 
code de l'instruction RTS. 


L'appel d'un sous-programme con- 
sistant seulement en un RTS peut 
paraître stupide, mais il a pour effet 
de placer les deux octets de la pré- 
sente adresse sur la pile (stack), puis 
de les ressortir. Nous pourrons alors 
réutiliser ces deux octets dans le 
sous-programme concerné : 


RIEN TSX ; valeur du pointeur 
; de pile 
DEX 
DEX 
TXS ; nouvelle valeur 


sur la pile, exactement comme si 
nous l’avions appelé par un JSR 
RIEN normal! Mais attention, ce 
n'est pas fini... En effet, si nous 
essayons de sortir du sous- 
programme RIEN par un RTS, nous 
allons nous retrouver à l'instruction 
BVC RIEN qui sera de nouveau exé- 
cutée et nous entraînera dans une 
boucle infinie ! Il n’y a malheureuse- 
ment pas d'instruction 6502 du type 
SEV (« set overflow ») ; aussi allons- 
nous faire appel de nouveau à notre 
précieuse adresse $FF58 et terminer 
notre sous-programme RIEN par le 
couple d'instructions suivantes : 


BIT $FF58 ; place l’over- 
: flow 
RTS 


L'instruction BIT (voir par exemple 
« Programmation du 6502» par 
Rodnay Zaks, page 103) effectue un 
ET entre l’accumulateur À et la 
mémoire ; mais, surtout, les bits 6 et 
7 de la mémoire sont transférés dans 
les bits V et N du registre d'état. La 
mémoire contenant $60 (soit 
01100000 en binaire), le bit V du 
registre sera donc bien positionné à 
la valeur 1. 

Résumons-nous par ce petit pro- 
gramme où sont utilisées toutes les 
techniques examinées dans cet arti- 





BRK cle : 
RIEN RTS Le sous-programme RIEN possède 
+ maintenant une adresse de retour 
Î x 
RELOGEABLE 2 RETURN  EQU #FF58 
Big Mac 3 COUT EQU S$FDED 
4 x 
8888: 18 5 CLC % PSEUDO JMP DEBUT 
886681: 96 aa 6 BCC DEBUT 
7 x 
8883: B8 8 DEBUT CLU  % EMPILE LA PRESENTE 
8884: 28 58 FF 9 JSR RETURN ADRESSE 
8887: 58 86 18 BLVC BELL PSEUDO JSR BELL 
8889: A9 Ci ti LDA #"A" 
866B: 28 ED FD 12 JSR COUT 
888E: 68 13 RTS 
14 : 
15 x 
868F: Bâ 1é BELL TSX x MISE À JOUR 
8818: CA 17 DEX x DU POINTEUR 
8811: CA 18 DEX x DE PILE 
8612: 9A 19 TXS 
8813: À9 87 28 LDA #$87 
8815: 28 ED FD 21 JSR COUT 
8818: 2C 58 FF 22 BIT RETURN ÂRME LE BIT N 
23 x DU REGISTRE D‘’ETAX 
881B: 68 24 RTS 
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Le programme ci-contre s'adresse à 
ceux qui souhaitent visualiser les 
informations stockées sur une dis- 
quette formatée en Pascal. Ces 
informations sont groupées en 
280 blocs de 512 octets par dis- 
quette. 


Description générale 


Le programme édite sur l'impri- 
mante un « dump » de la disquette 
tel que présenté en fin d'article. Cha- 
que ligne indique le numéro d'un 
groupe de huit octets, puis chacun 
de ceux-ci en décimal (de 0 à 255), 
et enfin les caractères ASCII corres- 
pondant à ces huit octets. 


Vous vous êtes probablement aper- 
çus que le code ASCII est le même 
pour un octet X (de O à 127) et 
l'octet X + 128. Toutefois, dans le 
listing ASCII des octets dont la 
valeur dépasse 127, nous avons pré- 
cédé ceux-ci du caractère exponen- 
tiation « À ». 

D'autre part, les caractères dont les 
codes sont compris entre O et 32 
inclus ne sont pas tous imprimables. 
C'est pourquoi nous les avons rem- 
placés par un mnémonique relatif à 
leur rôle respectif (12 = LF, 
27 = ESC, 7 = BEL,...). Ces 
mnémoniques sont imprimés après 
que leur signification ait été prélevée 
dans le tableau TABCTRL OF 
STRING {3]. Ce tableau est rempli 
en début de programme par la pro- 
cédure LECTABCTRL à partir du 
fichier précédemment créé par le 
programme WRITECTRL sur lequel 
nous reviendrons ultérieurement. 


Le programme 


Lors de son exécution, le pro- 
gramme LECTBLOCK demande à 
l'utilisateur le numéro du canal asso- 
cié à la disquette à analyser, puis 
celui du premier bloc, et enfin le 
nombre de blocs à « dumper ». Pour 
savoir à partir de quel bloc cette opé- 
ration doit débuter, il suffit d'exami- 
ner le directory de la disquette avec 
le FILER en sélectionnant la com- 
mande E. 


Dès cet instant, le « dump » sort sur 
l’imprimante et occupe 65 lignes sur 
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Dump Pascal 


une page qui en contient normale- 
ment 66, ce qui permet d'archiver 
une page de listing par bloc de 
512 octets. Il faut remarquer que, 
contrairement au BASIC, Pascal 
enregistre ses fichiers sur disquette 
de façon continue, si bien qu'il est 
très simple de lister un fichier 
connaissant l’adresse de son premier 
bloc et sa longueur (commande E 
sous FILER). 


Le programme lui-même est simple 
et s'articule autour d’une instruction 
UNITREAD (numdrive, fich, 512, 
numbloc). Cette instruction est capa- 
ble de lire des informations non 
structurées, contrairement aux 
autres instructions d’entrée/sortie. 
Les paramètres de cette instruction 
sont : le numéro de drive, fich (un 
tableau de caractères), 512 (nombre 
d'octets à lire) et numbloc {le 
numéro du bloc). 

Notons également qu'afin d’alléger 
au maximum le programme, aucun 
contrôle de cohérence n’a été pro- 


C'EST DE LP 
part D'ON LECTEUR 
HÉCONTENT - 





grammé dans les saisies, ce qui 
implique un tant soit peu de vigi- 
lance lors de l'entrée des paramè- 
tres. On aurait pu effectuer des tests 
de cohérence, mais il faut bien com- 
prendre que l’utilisation de ce pro- 
gramme est ponctuelle, dans le but 
de scruter des informations sur dis- 
quette, ce qui n’est pas une manipu- 
lation courante. 


Michel Marquis 


Il n’est toutefois pas inutile de l’exé- 
cuter simplement par curiosité, 
notamment sur les fichiers illisibles 
par des moyens « légaux » comme 
SYSTEM.APPLE, SYSTEM.MIS- 
CINFO, … ou sur le texte de votre 
programme (vous serez surpris |). À 
titre d'exemple, nous avons joint en 
page 34 un « dump» partiel du 
fichier CTRL.DATA créé par le pro- 
gramme WRITECTRL. 


Mise en œuvre 
du programme 


1. Entrer le programme 
WRITECTRL 


2 . L'exécuter en y entrant les mné- 
moniques ASCII de 0 à 32. 
S'aider de Pom's 4 ou du 
« dump » donné en annexe. 


3 . Entrer le programme 
LETBLOCK. Vous pouvez chan- 
ger le numéro du drive sur lequel 
se trouve FICHCTRL en rempla- 
çant #5: CTRL.DATA par 
#4 : CTRL.DATA 


4 . Lancer l'exécution. 


Bien entendu, si vous avez acheté la 
disquette d'accompagnement de ce 
numéro, vous y trouverez les pro- 
grammes tout prêts. 


Conclusion 


Comme nous l’avons remarqué plus 
haut, ce programme n'est pas d’une 
utilisation courante, mais il peut 
apporter beaucoup à ceux qui tra- 
vaillent « près » du système. De 
toute façon, il présente un intérêt 
pédagogique indiscutable. Pour 
l'instant, nous nous limitons à la 
publication d'un programme capable 
uniquement de lire des blocs sur dis- 
que, donc sans danger. Il lui man- 
que la possibilité de modifier les 
octets lus, puis de les réécrire. Nous 
ne doutons pas que certains d’entre 
vous l’écriront rapidement et enver- 
ront leurs contributions à Pom's. 
Pour les autres, si la suite les inté- 
resse, nous pourrons la publier ulté- 
rieurement. 
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Programme DUMP 


PROGRAM LECTBLOCK ; 
TYPE CARACT=PACKED RECORD 
NOM : STRINGI 3] 
END ; 


VAR FICH:PACKED ARRAYI8..511]) OF CHAR; 
PAPIER:TEXT ; 
TABCTRL : PACKED ARRAYI8..32] OF STRINGLI3)]; 
FICHCTRL:FILE OF CARACT; 
NUMBLOCK ,NUMDRIVE ,NBBLOCK : INTEGER ; 
REP : CHAR ; 


PROCEDURE LECTABCTRL ; 
VAR 1:INTEGER:; 


BEGIN 
RESET(FICHCTRL, /#5:CTRL.DATA") ; 
FOR 1:=8 TO 32 DO 
BEGIN 
TABCTRLII1]:=FICHCTRL" .NOM; 
GET(FICHCTRL) 
END ; 
CLOSE(FICHCTRL) ; 
END ; 


PROCEDURE LECTURE ; 
VAR 1,J,CH:INTEGER; 


BEGIN 
REWRITECPAPIER, ‘PRINTER:°); 
WRITELNCPAPIER, ‘ BLOCK NUMERO : ‘ :45 ,NUMBLOCK) ; 
UNITREAD(NUMDRIVE ,FICH,512,NUMBLOCK) ; 
1:=6; 
REPEAT AS PTT ee 
WRITE(PAPIER,1:3, ‘): HT es in Un 2 À 7 
FOR J:=1i TO 8 DO 8 ‘ 1) HD  # 
BEGIN 
CH:=O0ORD(FICHII 1); 
WRITE(PAPIER,CH:4) ; 
1:=1+1; 
END : 
WRITE(PAPIER, ‘ “40 
I:=1-8: 
FOR J:=1i TO 8 DO 
BEGIN Le à 
CH:=0RD(FICHII I): G—= 5 
IF CH>127 THEN 5 y 
BEGIN t 
WRITE(PAPIER,’ *°):3 dé \\ : 
CH:=CH-128 SRSENNNL| it = 
END INME"E 
_ELSE WRITE(PAPIER,’  ‘’)3 Li 
IF CH<=32 THEN WRITE(PAPIER,TABCTRLICHI) 
ELSE WRITE(PAPIER, CHRÇCH) : 3) : 
s=l+i 












Een JUN e9) 
—- LR min 7. 
SE TR ram, 
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END ; 

WRITELN(PAPIER) ; 
UNTIL I123S1i; 
CLOSE< PAPIER) ; 
END ; 


BEGIN (XPROGRAMME LECTURE BLOCK(S) x) 
LECTABCTRL ; 
REPERT 
PAGE OUTPUT) ; 
GOTOXY(5,5) ;WRITEC’NUMERO DU DRIVE (SANS #) : ‘’): 
READLN(NUMDRIUE) ; 
GOTOXY(S, 18) ;WRITE(’NUMERO DU PREMIER BLOCK : ‘): 
READLN (NUMBLOCK) ; 
GOTOXY(S, 15) : WRITEC’NOMBRE DE BLOCK(S) : “3; 
READLN(NBBLOCK) ; 
REPEAT 
LECTURE ; 
NUMBLOCK : =NUMBLOCK+ 1 ; 
NBBLOCK : =NBBLOCK-1 ; 
UNTIL NBBLOCK=8 ; 
GOTOXY( 18,22) ;,WRITEK ‘CONTINUER ? CO/N) ‘); 











READ(REP) ; 
UNTIL REP="’N’ 
ENC. | 
Programme WRITECTRL | 
PROGRAM WRITECTRL ; BEGIN 
TYPE CARACT=PACKED RECORD OUVERTURE ; 
NOM: STRINGI 3] RESET(FICHCTRL , ’ #S:CTRL.DATA’) ; 
END ; PAGE { OUTPUT) ; 
FOR 1:=8 TO 32 DO 
VAR 1:INTEGER; BEGIN 
FICHCTRL:FILE OF CARACT; WRITE(1:3,’ = ‘); 
READLN(FICHCTRL* .NOM) ; | 
PUT(FICHCTRL) ; 
END ; 
PROCEDURE OUVERTURE ; CLOSE(FICHCTRL , LOCK) 
BEGIN END. 
CXSI-X) 
RESET(FICHCTRL, /#5:CTRL.DATA") ; Exemples de dump en page 34 
CXSI+X) 
IF IORESULT{>8 THEN 
BEGIN 
IF IORESULT=18 THEN REWRITE(FICHCTRL, ‘#5:CTRL.DATA’) 
ELSE BEGIN 
PAGE ( OUTPUT) ; 
WRITE(’ERREUR E/S°) ; 
EXIT(WRITECTRL) 
END ; 
END ; 
CLOSE(FICHCTRL , LOCK) 
END ; 
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L'Exposition : 
du 14 au 18 juin 1983 


° mardi 14, mercredi 15, vendredi 17, de 9h 30à 18h 
« nocturne le jeudi 16, de 9 h 30 à 22h + samedi 18 de 9 h 30 à 17h. 


Tous les matériels, toutes les applications des micro- personnelle, venez évaluer les matériels, comparer leurs 
ordinateurs. Que votre motivation soit professionnelle ou coûts et vous renseigner sur les applications disponibles. 


Nouveauté 83 : une animation « logiciel » 


(organisée par Sybex et Logiciels & Services). 


Une banque de données des logiciels présentés par meilleurs logiciels pour micro-ordinateurs. Les lauréats pré- 
les exposants à MICRO-EXPO vous guidera, selon vos  senteront leurs logiciels pendant toute la durée de MICRO- 
besoins spécifiques, à travers l'exposition. EXPO (Renseignements : Logiciels & Services, tél. : (1) 
Un « grand concours » destiné à récompenser les  226.11.25). 


Et pendant toute la durée de l'exposition, une animation-jeux : venez affrontez l'ordinateur et peut-être. le battre. 


Le Congrès 
du 13 au 18 juin 1983 


Du débutant à l'expert, une occasion unique dans l'année de se former et de s'informer. 


Séminaires professionnels Conférences Grand Public 


















Les micro-ordinateurs : présentation, choix Choix d'un micro-ordinateur 
leon pois 
Les langages : BASIC, PASCAL, APL La tfomont der bide 
Les nouveaux langages : FORTH, LOGO, PROLOG, C L'enseignement assisté par ordinateur - E.A.O. 
La télématique : TE: = = z 
Les systèmes d'exploitation pour micro-ordinateurs 16 bits 
Le traitement de texte 
L'entreprise, son système d'information et l'informatique 
La comptabilité et ses logiciels 
Les bases de données et leurs logiciels 
La gestion et le Visicalc 
Le système d'exploitation MS-DOS 












Journées spécialisées, avec démonstrations : 
— pour les professions juridiques, 

— pour la médecine, 

— pour l'agriculture. 













Journées des constructeurs : 
COMMODORE, GOUPIL, HEWLETT-PACKARD, 
TANDY, THOMSON, VICTOR LAMBDA 








INFORMATION 
Nom : . 
Adresse : 8 
SYBEX Code postal :L_ 11 11] Ville : ê 
[ ____ entrées(s) à demi-tarif Cl Programme détaillé du congrès 


4, place Félix-Éboué - 75583 PARIS Cedex 12 - Tél. : (1) 347.30.20 - Telex : 211 801 F 
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8° Congrès-Exposition - MICRO-ORDINATEURS 


Palais des Congrès - CIP - Porte Maillot - Paris 
eux organisé par : 
NZ sex 4, place Félix-Éboué - 75583 PARIS - Tél. : (1) 347.30.20 - Telex : 211 801 F 
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Fichier CTRL-DATA : dump partiel 


® ( U OU WU) U U U WU WW QG WU QG 
oœ 
œ@ 


BLOCK NUMERO : 
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84 
78 
69 
72 
86 
6? 
83 
67 
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83 
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85 
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ÉÉPEEE 


à 


6500 ERRORS 


ELOCK NUMERO : 


128 211 
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Bien que totalement inédit, ce géné- 
rateur peut être d’une grande utilité 
pour un programme scientifique ou 
éducatif, ainsi que pour tout pro- 
gramme devant conserver et utiliser 
des données sans créer de fichiers. 
En fait, il devrait aussi permettre de 
réaliser des programmes sortant de 
l’ordinaire… 


Le générateur donnera à votre pro- 
gramme la faculté de se développer 
lui-même, grâce à une simple com- 
mande qui, lorqu’elle est rencon- 
trée, a pour effet d'ajouter un 
numéro de ligne à toute instruction 
Applesoft et d'insérer la liigne en 
question dans le programme. 


En fait, il a fallu pour l'écrire recourir 
à des routines de la ROM Applesoft 
assez peu connues... Ces routines 
seront indiquées plus loin. 


Principe de 
fonctionnement 


Ayant souvent éprouvé l'inconvé- 
nient, dans un programme utilisant 
des fonctions mathématiques, de 
devoir stopper celui-ci pour y insérer 
des lignes de définitions ou pour y 
incorporer des DATA, je me suis dit 
qu'il serait merveilleux de disposer 
d'une routine en asssembleur accor- 
dant aux programmes écrits en 
Applesoft une dimension évolutive, 
la capacité de s’auto-générer | 

Les données entrées par INPUT au 
cours du programme pourraient par 
exemple lui être incorporées sous 
forme de lignes d'instructions, avec 
un numéro qui serait automatique- 
ment incrémenté et placé au début 
de la ligne générée. 

Pour que le générateur puisse opé- 
rer sur toute instruction Applesoft, 
une commande INPUT digérant vir- 
gules et deux-points est indispensa- 
ble ; or, cette commande a été réali- 
sée antérieurement et publié dans le 
numéro 5 de Pom's (voir « La pro- 
grammation facilitée »). 


Parmi les instructions qui compose- 
ront les lignes générées, l’une serait 
corrélative à l’auto-écriture d’instruc- 
tions DEF. En effet, lorsque le pro- 
gramme appellera une ligne conte- 
nant des instructions DEF, cet appel 
nécessitera un RETURN, qui devra 
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Un générateur 


Denis Sureau 


par conséquent être produit par le 
générateur. 

Demander au programme d’effec- 
tuer un appel par GOSUB ou 
GOTO à des lignes qui n'existent pas 
encore, et que l’on propose d’ajou- 
ter durant le traitement, pose quel- 
ques questions ! Une convention 
s'impose alors : les lignes ajoutées 
commenceront par exemple à partir 
du numéro 20 000, avec un incré- 
ment de 10 ; on calculera ainsi le 
numéro d'une ligne créée à partir de 
son rang. S'il s’agit de la troisième, la 
première ligne avant le 
numéro 20 000, ce sera la ligne 
20 020. 


On se dit que, puisque le générateur 
peut ajouter une nouvelle ligne au 
programme, il serait également 
nécessaire de pouvoir modifier la 
dernière ligne existante, lorsqu'il 
s'agit d'un RETURN notamment. 
Cette possibilité serait obtenue par 
une option à laquelle on donnera le 
nom de POP. 


Ces projets me paraissaient promet- 
teurs ; jimaginais un programme 
démarrant avec deux lignes, s’auto- 
générant à partir de quelques indica- 
tions et se sauvegardant tout seul sur 
la disquette, une fois la mémoire 
saturée … 


Un écueil de taille s’opposait toute- 
fois à la réalisation : il fallait trouver 
la procédure Applesoft convertissant 
les lignes en format programme, 
dans lequel les instructions sont 
représentées par un code d’un seul 
octet. Je ne possédais pas la docu- 
mentation nécessaire et entrepris de 
la chercher tout seul dans l’Apple- 
soft, à partir de l’adresse $D000. 


C'est à l'adresse $D56D que je l’ai 
enfin trouvée, rebelle à un emploi 
immédiat, finissant avec la longueur 
des données en Y alors qu’elle est 
initialement en X dans le buffer 
d'entrée et modifiant en outre 
TXTPTR, l'ensemble des pointeurs 
servant à analyser le programme en 
cours. Cette routine une fois décou- 
verte (ainsi que quelques autres à 
l'occasion), le module était réalisé ; 
en voici le mode d'emploi. 


Mode d'emploi 


Une seule commande permet 


d'obtenir la génération d’une ligne 
Applesoft de tout type ; son format 
comporte deux variantes, soit 
l'emploi d'un mot réservé de 
l’'Applesoft, soit l'emploi d'un carac- 
tère quelconque. 


Les instructions & DATA A$ et & 
DEF AS$,lorsqu'elles sont rencon- 
trées, ont pour effet d'ajouter au 
programme les instructions conte- 
nues dans A$ sur une ligne qui com- 
mencera automatiquement par 
DATA ou DEF. Plus généralement, 
avec la syntaxe & X A$, X est choisi 
par l'utilisateur. Cela peut être un 
caractère quelconque ou un mot 
réservé de l’Applesoft, avec un effet 
différent : le mot réservé sera incor- 
poré en début de ligne, le caractère 
ne le sera pas. 


L'option POP utilise la syntaxe & 
POP DATA A$ ou enfin & POP X 
A$, la nouvelle ligne remplaçant la 
dernière et prenant son numéro. 


Les commandes du générateur peu- 
vent s'employer en mode direct si un 
programme est présent en mémoire 
et si la LOMEM a été déplacée. Ceci 
est une précaution dont on s’assu- 
rera toujours avant d'utiliser le géné- 
rateur : la LOMEM doit être placée 
suffisamment haut pour protéger les 
variables, puisqu'elles suivent immé- 
diatement, en temps normal, le pro- 
gramme dans la mémoire. 


NDLR : ne pas oublier d’abaisser la 
HIMEM au-dessous du début du 
générateur avec HIMEM : 38048 si 
l’origine est en $94A0 comme sur le 
listing. 


Routines Applesoft 


Les deux plus importantes sont 
MOVSTR ($E5E2) pour le transfert 
des données et en $D56D celle qui 
« tokenize » le buffer d'entrée, c’est- 
à-dire qui convertit les mots réservés 
en codes. 


On appelle FD56D avec X mis à O, 
en sauvegardant TXTPTR qui sera 
pointé sur le buffer d'entrée ($200), 
et en remplaçant par $0 le délimiteur 
$D (RETURN) se trouvant à la fin du 
texte lors d’une entrée par INPUT. 
Convertie en format Applesoft, la 
ligne se trouve bien sûr réduite ; le 
registre Y contiendra alors la nou- 
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velle longueur de la ligne, délimiteur 
compris. 


MOVSTR transfère une donnée 
pointée par Ÿ (ADL), X (ADH), lon- 
gueur en À vers l'adresse pointée en 
$71 et $72 (FRESPC). 


MOVINS ($E5D4) fait la même 
chose que MOVSTR mais copie une 
chaîne dont le descripteur est pointé 
en $AB-$AC (STRNG1). Le registre 
Y revient à O et $71-$72 pointent 
maintenant sur la position qui suit la 
chaîne transférée. Ces pointeurs 
sont incrémentés par la valeur de 
l'accumulateur À par une routine 
dont l'adresse est $E5F3. 


FNDLIN ($D61A) est utilisée par la 
commande RESTORE. Elle recher- 
che l’adresse de la ligne dont le 
numéro a été placé en $50-$51 
(LINNUM) et la pointe en $9B-$9C 
(LOWTR). Si la retenue C est mise à 
0, la ligne n'a pas été trouvée. 


Deux lignes consécutives en Apple- 
soft séparées par 5 octets : le code 0 
de fin de ligne, 2 octets qui pointent 
sur la ligne suivante, 2 octets pour le 
numéro. L'adresse du numéro de la 
dernière ligne s'obtient donc en 
lisant les 2 premiers octets de cha- 
que ligne, jusqu’à ce que deux « 0 » 
consécutifs signalent la fin de pro- 
gramme. 


L'adresse de la ligne sera pointée 
dans ADRNUM ($1E, $1F), utilisé 
pour la conserver, et on fera deux 
adressages indirects indexés par Y 
pour avoir accès au numéro de 
ligne. Les deux premiers octets de la 
ligne générée pointeront sur la fin du 
programme. Ils seront suivis du 
numéro de la dernière ligne incré- 
menté de 10, puis éventuellement 
du code instruction employé dans le 
format et finalement, du contenu. 


Le listing du programme commente 
toutes les étapes de cette génération. 


Les bons trucs. 


Le générateur est court grâce à 
l'emploi de routines Applesoft ; 
étant relogeable, il peut être chargé à 
l'adresse voulue, de préférence au 
sommet de la mémoire, protégé par 
l’abaissement de la HIMEM. 


À noter dans la rubrique « trucs et 
astuces » : quand on ne manipule 
pas de fichiers, mais beaucoup de 
chaînes de caractères, il est possible 
de réduire la zone des variables, à 
l’aide de HIMEM et LOMEM, de 1 K 
à 3 K. D'où réduction des problèmes 
dûs au nettoyage mémoire ! 


Des applications originales peuvent 
s'imaginer, telles que la conversion 
de routines en lignes de DATA, la 
création de programmes à partir de 
fonctions et d’affectations détermi- 
nées par calcul. Imaginons qu’à par- 
tir de bases bien définies un pro- 
gramme puisse se construire lui- 
même pour atteindre un but connu 
de lui seul... 


GÉNERAFEUR . ADRPROG JSR $FF58 SUR RTS 
: £ ; 
Big Mac 235 Tex 
36 DEX 

1 H000000000000O00OUXXXX VERS. 37 LDA +190 ,X 

2 XXXXXX GENERATEUR XXXXX 2.8 38 CLC 

3 HO0O000OPOOMXIOMHX 39 ADC  HDEPART-ADRPROG-2 
4 XXX PAR DENIS SUREAU XX 46 STA +2Fé 

S XXOOO000OODDODOENIIONX ai INX 

6 XX COPYRIGHT (C) 1982 X 42 LDA +108,X 

7 HO00000O00OOXXXXINKEXX 43 ADC HG 

8 44 STA +$3F7 

3 45 LDS #H#4C ; JMP 
18 FNDLIN = $DéiA qé STA 4$3F5 
11 FRENUM = $DD67 47 RTS 
12 PTRGET = $DFES 48 
13 MOVINS = $ESD4 49 DEPART  STA  INSTRUC 
14 MOUSTR = $ESEZ2 58 CMP #174 ; RESTORE? 
15 GETADR = $E752 51 BEQ RESTORE 

ié 52 TAY 

17 LINNUM = +$a0sa 53 JSR CHRGET 
18 VARPNT = $0083 54 CPY #161 ; POP? 

19 FORPNT = +aags 55 BNE  GENER 
28 CHRGET = $00B1 56 STA INSTRUC :SI OUI, 
21 TXTPTR = $00P8 57 JSR CHRGET  :;INCR MIS 
22 58 LDA #0 :A 0 
23 LNGTEXT = $6a18 59 BEQ GENER2 
24 ADRTEXT = $0819 :$19-$14 68 RESTORE JSR CHRGET  :PLACE 
25 INSTRUC = +001E 61 JSR FRENUM  ;NUM LGNE 
26 SEPARATR = $001C 62 JSR GETADR  :EN $50-51 
27 INCR = #681D 63 LDA LINNUM  3;LE PLACE 
28 ADRNUM = $001E :$1E-$1F 64 STA %$7B :EN NUM 
29 65 LDA LINNUM+1 :DE LIGNE 
38 ORG +948 éé STA #$7C :DE DATA 
31 67 JSR FNDLIN  ;CHERCHE 
32 X< UN PROGRAMME RELOCATABLE >X 68 LDA $9B 5LA LIGNE 
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69 ADC #$02 ADR EN 134 BNE  LOOP 





76 STA $7D 3:$7B-9C. 135 

71 LDR $9C 3MET ADR 136 X TESTE SI POP OPTION 

72 ADC #8 :LIGNE EN 137 

73 STAR $7E ; POINTEURS 138 LDA  INCR 

74 RTS 3DE DATA 139 BNE  BRANCH 

?5 i4a 

76 GENER LDA H#$GA 3;MET 1@ 141 LD$  ADRNUM 

77 GENER2 STA  INCR >EN INCR. 142 STA  $9B 

78 143 LDA  ADRNUM+ 1 

79 LDA #$84 144 STA #$9C 

8@ STA  SEPARÂATR 145 

81 146 BRANCH LDA  INSTRUC 

82 *X LOCALISE LE DESCRIPTEUR DE LA 147 BPL  TOKEN ; CARACT. 
83 X VARIABLE ET PLACE LA LONGUEUR 148 INC  SEPARATR 

84 X EN LNGTEXT,L'ADRESSE EN ADRTEXT 149 CMP #131 : DATA? 

85 15@ BEQ COPY 

86 JSR PTRGET 151 

87 STA  FORPNT 3 SAUVE 152 X ‘’TOKENIZE’ UNE INSTRUCTION 

88 STY  FORPNT+1 :ADR DESCR 153 X DEF OU UNE LIGNE D’INSTRUCTIONS 
87 STA +AB 3; POINTEURS 154 

9a STY #AC ;:PR MOVINS 155 TOKEN LDA TXTPTR ; SAUVE 

91 LDY #$02 156 PHA 3 TXTPTR 

92 DSCLOOP LDA  CUARPNT) ,Y 157 LDA TXTPTR+I1I 

93 STA LNGTEXT,Y 158 PHA 

94 DEY 159 LDA #@ 3 COPIE 

95 BPL  DSCLOOP 169 STA #71 LA CHAINE 
?é 1éi LDA #$02 3EN MEM 

97 LDA  INSTRUC 162 STA +$72 3DANS LE 
98 CMP  #1232 ; INPUT ? 163 JSR MOVINS ; BUFFER 

99 ENE  ADRDRN 164 

149 165 X ELLE N’ACCEPTE PAS UN CODE SEUL 
1@1 *X &FDéF EST L'INPUT OÙ MONITEUR 166 *X AUSSI ON AJOUTE UN CODE NUL,’:° 
192 X $DS539 CONVERTIT LA CHAINE EN 167 X DANS LE BUFFER.IL SER& SUPPRIME 
193 %* FORMAT APPLESOFT,BIT 7 à &@ 168 X ENSUITE 

104 X $SESE9 & $DA9A COPIENT Lé DONNEE 1697 

195 X OÙ BUFFER D'ENTREE EN MEMOIRE, 178 LDX  LNGTEXT 

196 *x DESCRIPTEUR POINTE EN FORPNT,. 171 LDA #‘:° IMET x 
187 172 STA +208 ,X 

188 JSR #FDéF 173 LDA  #ü ;MET LE 
189 JSR $D539 174 STA +201,X ;DELIMITR 
118 LDA  #H& 175 TAX 3 ZERO 

411 LDY #2 176 

112 TAX :DELIMITR 177 *X $DS56D EST LA ROUTINE DE 

113 JSR $ESE9 178 X CONVERSION DES MOTS-CLES 

114 JMP  $DAYA 179 * EN CODES, Y PASSERA Lé NOUVELLE 
115 189 X LONGUEUR 

116 X TROUVE L'’ADRESSE DE LA DERNIERE 181 

117 *X LIGNE 182 STA #13 

118 153 JSR $DS6D 

119 ADRDRN LDY #1 184 DEY 

126 LDX 183 >» DEBUT DE 185 DEY 

121 LDA 184 : PRÜGR. i8é STY LHGTEXT  : UPDATE 
122 BNE  ADRTRNS 187 LDA  H#$FC 3LNG & ADR 
123 LOOF STX  ADRNUM 188 STA  ADRTEXT  ; POUR 

124 LDA $9C 187 LDA #$01 ;MOVINS 
125 STA  ADRNUM#+ 1 196 STA  ADRTEXT +1 

126 DEY LIT ADR 191 PL 3RESTAURE 
127 LDA (#$9B),Y  ;LIGNE 192 ST8 TÂXTPTR+1 :; TXTPTR 
128 TAX 3 SUIVANTE 193 PLA 

129 INY LA MET EN 174 STA TXTPTR 

130 LDA ($9B),Y :+59B-#$9C 195 

131 ADRTRNS STX $9B 17é COPY LD8 %59E COPIE 

132 STA $9C 122 CLC 5LA CHAINE 
125 LDA  C#$9E),Y 178 ADC SEPARATR ;DE LA VAR 
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STA #71 ;OU DU 
LDA #9C : BUFFER 
ADC #0 À LA FIN 
STA $72 :DU PROGR 
LDY  LNGTEXT 

LDA #8 :MET LE 
STA ($71),Y  :DELIMITR 
LDA  LNGTEXT 

LDX  ADRTEXT 

LDY ADRTEXT+1 

JSR MOUSTR 

LDA #1 ; INCREM. 
JSR $E5F3 #71 


X INSERTION DE L’'ADRESSE DE LIGNE 
X SUIVANTE DANS LES 2 PREMIERS 

X OCTETS DE LA LIGNE, AJUSTEMENT 
X DES POINTEURS DE FIN DE 

X PROGRAMME 


LDA #71 

STA ($9B) ,Y 
CLC 

ADC #2 

STA 175 

INY 

LDA #7 

STA ($9B) ,Y 
ADC #8 

STA 176 


GÉNÉRATEUR 
Récapitulation 


X94A08 .9S5EZ 


9448- 28 58 FF BA CA BD 68 81 
94A8- 18 67 1B 8D Fé 83 E8 ED 
94B8- 68 81 69 88 SD F7 83 A7 
94B8- 4C 8D F5 83 66 85 iB C7 
94C4- AE F8 11 À8S 28 B1 88 Ca 
S4C8- Ai D8 2À4 85 iB 28 Bi @@ 
94D8- A9 88 F6 23 28 Bi 66 28 
94D8- 67 DD 28 52 E7 ÀS 58 85 
94E8- 7B À5 51 85 7C 28 iÀ Dé 
94E8- À5 9B 69 83 85 7D AS 9C 
94F8- 69 66 85 7E 68 À9 8 85 
94F8- 1D À9 64 85 1C 26 E3 DF 
9508- 85 85 84 86 85 AB 84 AC 
9508- AG 62 Bi 83 77 18 66 88 
9518- 18 F8 ÀS 1B C9 84 D8 11 
9518- 28 46F FD 28 39 DS À9 88 
95280- ÀB 62 A 28 E9 E3 4C 94 


229 


238 *X INSERTION DU NUMERO DE LIGNE 
231 *X DANS LES 2 OCTETS SUIVANTS 


232 
233 
234 
235 
236 
237 
238 
239 
248 
241 
242 
243 
244 
245 
246 


247 X DEUX ZEROS 
248 X TROUVER LE 


INY 
LDA 
CLC 
ADC 
STA 
INY 
LDA 
ADC 
STA 
LDA 
BPL 
INY 
STA 


(ADRNUM) ,Y 
;MET LE 
INCR :NUMERO 
(#98) ,Y :;DE LIGNE 
CADRNUM) ,Y 
#Q 
($9B) ,Y 
INSTRUC  :;MET 
FIN :’DATA’ OÙ 
; DEF” 
«$9B) ,Y 


LA OU DELVRAIT SE 
DEBUT D’UNE AUTRE 


249 X LIGNE SIGNALENT LA FIN DE 
258 *X PROGRAMME 


251 
252 FIN 
253 
254 
235 
256 
257 


DA 
8D 


82 
88 


AS 


82 
67 


71 
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LDA 
TAY 
STA 
INY 
STA 
RTS 


#Q 


<$71),Y 


(#71) ,Y 
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Ün programme de test universel 


En écrivant le programme TEST, 
j'avais en vue un programme de test 
général qui utiliserait des données 
interchangeables, et serait de préfé- 
rence très court, puisque ce pro- 
gramme serait la partie commune à 
tous les programmes de test que l’on 
voudrait réaliser, et serait donc 
stocké en de multiples exemplaires. 


Il permet de créer des tests dans tout 
domaine à votre convenance ; il est 
en outre général au niveau du 
système, car il ne nécessite aucune 
configuration spécifique, grâce au 
générateur de lignes qui « auto- 
écrira » les données sous forme de 
DATA. 


Un examinateur patient 


TEST est un programme simple qui 
vous pose des questions sur un sujet 
donné, de façon exhaustive ou aléa- 
toire, et vous fournit la bonne 
réponse. Quand vous avez sélec- 
tionné un chapitre et un mode 
d'interrogation, il présente la ques- 
tion tandis que la réponse se trouve 
sous un cache. Puis, lorsque vous 
avez donné votre réponse, ou sim- 
plement appuyé sur RETURN, le 
cache disparaît pour laisser apparaî- 
tre la bonne réponse. 


Le CURSEUR INVERSE, pro- 
gramme en langage machine qui se 
trouve sous forme de lignes de 
DATA, permet de réaliser le cache. 
Ainsi d’ailleurs que la présentation 
du programme, notamment le cadre 
du sommaire et la page de titre. On 
peut faire énormément de choses 
avec le CURSEUR INVERSE ; c’est 
pourquoi je l’ai écrit sous forme relo- 
geable et compatible avec d’autres 
routines binaires. Comme il utilise 
lampersand, il y aurait eu appro- 
priation de celui-ci par la deuxième 
routine chargée sur la première si 
elle l’avait également utilisé ! Ce pro- 
blème a une solution, que je vous 
propose plus loin. 

Les données que vous avez fournies 
seront rajoutées automatiquement à 
la fin du programme de test, à partir 
de la ligne 20000, sur des lignes de 
DATA. 


Pour créer un test différent, il suffit 
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de supprimer les lignes 20010 et sui- 
vantes, et de placer DATA END à la 
ligne 20000. Les titres des chapitres 
sont la seule chose que l’on ajoute 
« à la main » sur le programme. Les 
lignes 100 et suivantes sont réser- 
vées à cet effet et affectées aux varia- 
bles B$(1), B$(2)... A la ligne 100, 
le nom du programme affecté à la 
variable F$ peut aussi être changé 
pour prendre le nom du test créé. 


Un programme 
cybernétique 


Plutôt que de recourir au pro- 
gramme hiérarchisé classique avec 
un menu principal auquel on revient 
pour avoir accès à chaque section, 
on utilise une approche systémique 
permettant d'appeler le sommaire à 
partir de n'importe quel endroit. 
Lorsque le numéro du chapitre est 
demandé, appuyer sur « S» fait 
apparaître le sommaire ; la question 
est ensuite posée de nouveau et on 
indique alors le numéro de l'option 
souhaitée. Les options « cherche » 
et « numéro ligne » ne figurent pas 
au menu. On les appelle de 
n'importe quel point du programme, 
ainsi que chacune des autres fonc- 
tions. La description de chacune de 
ces procédures suit. 


PROCEDURE DE TEST. Présenta- 
tion en 3000, option test complet en 
6000, test aléatoire en 4000. La 
ligne 4097 stocke les numéros de 
ligne de chaque question posée et 
teste si le numéro généré aléatoire- 
ment figure dans la liste ; ainsi, lors 
du test aléatoire, une question n’est 
jamais posée deux fois. 


AJOUTE commence en 5000. Les 
données sont stockées sur deux 
lignes de DATA, la première conte- 
nant le numéro de chapitre et la 
question, la seconde la réponse. 


ARRET débute en ligne 8000. On 
teste à la ligne 8000 le drapeau DR 
positionné à 1 pour indiquer que des 
données ont été entrées et sauvegar- 
der, le cas échéant, le programme. 


CHERCHE et NUMERO DE LIGNE 
se partagent le même sous- 
programme à partir de 2000, en 
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fonction de A, la variable réservée 
aux numéros d'options. 


Problèmes d’interfaçage 


Comment utiliser simultanément 
plusieurs routines ayant pour vec- 
teur l’ampersand ? La solution que 
j'ai adoptée dans la routine 
INVERSE consiste à sauter à 
l'adresse indiquée en 6-7 si l’amper- 
sand est suivi d'un code autre que 
INVERSE, par exemple ici RES- 
TORE, DATA, DEF, etc... On place 
donc en 6-7 l'adresse du début de la 
seconde routine, augmentée du 
nombre des octets (inutilisés dans ce 
cas) qui précèdent les tests de 
syntaxe dans celle-ci, soit, dans le 
cas du générateur, 29 octets pour la 
partie initialisation. 

USR pourrait encore être utilisé pour 
une troisième routine, les positions 
$A-$B-$C n'étant pas utilisées. 


Conclusion 


J'espère que ce programme vous 
aidera à contrôler vos connaissances 
dans un domaine, ou à les vérifier 
avant un examen, de façon facile et 
rapide. Il y a bien sûr la nécessité de 
rentrer en différé les questions et 
réponses, mais cet exercice peut 
s'avérer utile pour mieux compren- 
dre un texte. 


En fait, il appelle (je crois) un pro- 
gramme complémentaire, qui 
apprendrait au lieu de tester, et fonc- 
tionnerait selon le principe de 
l’enseignement programmé... 
dJ'ignore si un tel programme existe. 
J’essaierai d’en écrire une version à 
l’occasion. 


Liste des variables réservées 
À = numéro d'option 

A$() = libellé des fonctions 

B = hauteur sonore ou divers 

B$() = titres des chapitres 

C = durée du son ou divers 

DR = signale si des données ont été 
ajoutées 

F$ = nom du programme 

N% = nombre de questions 

R% = indice du tableau enregis- 
trant les lignes lors du test aléatoire. 
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17 N = 68: & RESTORE 28888: PRINT 


N = 


A = 


PRINT "BRUN GENERATEUR"* 
HIMEM: 38047: REM SOUSTRAIRE 16384 PO 
UR 32K 
LOMEM: PEEK (115) + 
6 — 1888 

REM PLACE EN 6-7 L’ADRESSE DE LA PROC 
EDURE OÙ DOIT POINTER L’AMPERSAND 
LORSQU'IL EST SUIVI D’UN CODE DI 
FFERENT DE CELUI D’INVERSE 

38848 + 29: POKE 7,N / 256: POKE é 
3N — PEEK (7) *X 2546 

= 8:C = N:I = N:J=N 

GOSUB 13868: GOSUB 188: GOTO 9888 

REM ROUTINES FREQUENTES 
POKE -— 16368,8: RETURN 
PRINT TAB 18) "OPTION 

N 

B = PEEK € - 16384): RETURN 

FOR J = 1 TO 588: NEXT : RETURN 
PEEK (123) + PEEK (124) %X 256: 

RETURN 

POKE 773,B: POKE 774,C: CALL 778: RE 

TURN 


PEEK (116) %x 25 


“A$CA) : RETUR 


“ATTEN 
DEZS" 

READ ÀA$: IF À$ < 
FIN" THEN N = 

RETURN 

PRINT “CHAPITRE #";: 
SUB 23 

IF C$ = *“S*" THEN GOSUB 1888: 
3: GOTO 28 

RETURN 

& INPUT C$: 

RETURN 

GOSUB 13: 

RETURN 

GOSUB 11: WAIT - 
3: IF B = 141 OR B = 
SUB ii: RETURN 

POP : GOTO 18458 

POKE 32,4: POKE 33,38: POKE 34,5: PR 
INT : RETURN 

& INVERSE 5,38,6,3: RETURN 

INVERSE 

VTAB 5: 

VTAB 11: 
TE" 

NORMAL : RETURN 

PEEK (36): PRINT A$(1): &  INVER 

SE À + 1,1, PEEK (37) ,1: PRINT : 

RETURN 

VTAB 1: HTAB 18: GOTO 28 

VTAB 4: CALL - 958: GOSUB 58: VTAB 
19: PRINT “VOTRE REPONSE":B = 68: 
C = 38: GOSUB 14 

GOSUB 38: VTAB 6: PRINT B$: TEXT : G 
OSUB 48: & INVERSE 1,48,12,5 

VTAB 28: & INPUT E$ 

& INVERSE 1,48,12,5: VTAB 12: PRINT 
A$ 

GOTO 27 

HOME 

PRINT "FIN DE DONNEES": GOTO 27 

REM VOS VARIABLES 

F$ = "TEST" 

B$(1) = "PROGRAMMATION" 

B$(2) "FICHIERS" 

B$(3) “TABLES ET TABLEAUX" 

B$(4) "STRUCTURE DE DONNEES" 

B$(5) "PROGRAMMATION STRUCTUREE" 


> C$ AND À$ < 2 ” 
N + 1: GOTO 18 


CALL - 668: 60 


VTAB 2 


IF C$ = *" THEN POP 
IF B= 155 THEN POP 


16384,128: GOSUB 1 
168 THEN GO 


*QUEST I ON* 
"REPONSE EXAC 


HTAB 6: PRINT 
HTAB 7: PRINT 


124 B$(Cé) = "MODELES:FONCTIONS COURANTES 
125 B$(7) = “MODELES :METHODOLOGIE" 
126 B$(8) = "ALGORITHMIQUE" 
138 RETURN 
998 REM SOMMAIRE 
1888 I = 8 
1848 TEXT : HOME 
1845 PRINT : PRINT A$(3) ,F# 
1847 UTAB 5 
1858 I = I + 1 
1868 IF B$CI1) = "* THEN 1118 
1878 IF PEEK (37) > 26 THEN PRINT "AP 
PUYEZ SUR UNE TOUCHE" ;: GOSUB 111 
6:1 = 1 - 1: GOTO 1848 
1888 PRINT TABC 4) MID$ (R$,I *X 5 - 4, 
5) ; 
1898 PRINT “. "B$(I): PRINT 
1188 GOTO 1858 
1119 &  INVERSE 1,9,1,3: & INVERSE 10, 
31,4,28 
1115 &  INVERSE 11,29,5,18: &  INVERSE 
25/5318 
1128 B = 84:C = 46: GOSUB 14 
1138 GOTO 27 
1998 REM RECHERCHE/NUM LIGNE 
2098 HOME : GOSUB 12: VTAB 4: PRINT “QU 
ESTION:";: GOSUB 23 
2818 GOSUB 17: IF ÀA$ = "FIN" THEN GOSU 
B 97: GOTO 2888 
2815 IF À = 7 THEN PRINT “LIGNE: ": GO 
SUB 15: PRINT N: GOTO 27 
2828 REÂAD A$: GOSUB 98: GOTO 2888 
2978 REM QUESTION 
3888 VTAB 21 
3618 PRINT "1. SUR TOUT" 
3828 PRINT “2. AU HASARD" 
3038 GET A$:N = VAL (AS) 
38648 GOSUB 28: TEXT : HOME 
3645 GOSUB 12: HTAB 18: PRINT “CHAPITRE 
“;:C$ 
3847 &  INVERSE 9,22,1,3 
3868 VTAB 1: HTAB 1: PRINT “ESC POUR": 
PRINT “QUITTER"* 
3188 ON N GOTO 6888 ,4888 
3498 RETURN 
3998 REM TEST ALEAÂTOIRE 
4888 IF NOT NZ THEN RETURN 
4818 RZ = @ 
4848 GOSUB 11 
4858 N = INT € RND (1) *x NZ %X 2) + 1 
4868 #% RESTORE N * 18 + 19998 
4878 READ À$: IF A$ = "FIN" THEN 4858 
4888 GOSUB 25 
4898 IF ÀA$ < 3 C$ THEN 4878 
4892 GOSUB 15 
4895 FOR I = @ TO RZ: 1F N = RCI) THEN 
40858 
4897 NEXT I:RA(I) = N:RZ = (I < 51) X 1 
4188 READ B$: READ ÀA$ 
4128 GOSUB 98: GOTO 4858 
4998 REM AJOUTE 
5088 IF PEEK (175) + PEEK (176) X 254 
> © PEEK (185) + PEEK (186) *% 2 
Sé - 239) THEN PRINT "MEMOIRE SA 
TUREE": GOTO 18 
5858 HOME : GOSUB 12: PRINT “ "NZ" QUES 
TIONS" 
5855 GOSUB 58 
5868 VTAB 12 
5864 & INPUT B$: IF B$ = “" THEN RETU 
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5065 
50 768 
5888 
5898 


5188 
5182 
5185 
5187 
5118 
5218 
5498 
597978 
6888 
é818 
6815 
é828 
6838 
é84g 
6990 
7868 
7818 
7628 
7638 


7648 


7845 
7647 


7858 


7490 
8688 
8485 


8818 
8834 
8288 


7868 
9818 


78208 
7850 
7668 
9878 
9770 





RN 
GOSUB 36 
VTAB 6: & INPUT À$ 


TEXT : GOSUB 88 

CS = C$ + "," + 
CHR$ (34) 

& POP DATA C$ 

B$ = CHR$ (34) + E$ + 


CHR$ (34) + AS + 


CHR#& (34) 


REM TEST EXHAUSTIF 
& RESTORE 28888 
READ A$: IF ÀA$ = "FIN" THEN 9é 
GOSUB 25 
1F À$ < > C$ THEN 6818 
REÂD B$: READ À$ 
GOSUB 98: GOTO 6818 
INSTR. 
HOME 
GOSUB 12: VTAB 5 
POKE 32,8: PRINT 
PRINT “"R — RECHERCHE UNE QUESTION" 
: PRINT 
PRINT *“S - QUAND LE CHAPITRE EST " 
s "DEMANDE ,AFFICHE LE SOMMAIRE": P 
RINT 
PRINT “L - NUMERO DE LIGNE D’UNE", 
"QUESTION": PRINT 
PRINT “ESC - ARRETE LA PROCEDURE", 
"EN COURS": PRINT 
PRINT “ LE NOM DU PROGRAMME ET LES 
","CHAPITRES SONT MIS AUX LIGNES" 
"188 ET SUIVANTES" 
TEXT : GOTO 27 
IF NOT DR THEN 8288 
PRINT “NOM DU PROGRAMME: ";F$3;: PR 
INT * OK?",: GET À$: IF ÀA$ = “N° 
THEN HTAB 19: CALL - 868: INPUT 
F$ 
D$ = CHR$ (4) 
PRINT D$"SAVE"F# 
TEXT : HOME : PRINT "AU REVOIR!": 
END 
N$ = "TASIQRL": REM INITIALES 
R$ = " I ET TI IV UV UV 
1 VII VIII IX X XI XII X 
111 XIV XV XVI XUIIXVIII XIX 
XX XXI XXIIXXIII XXIU  XXU XX 
VIXXVIXUIII XXIX  XXX" 
DIM RÆ(58) 
GOSUB 17 
NX = N / 3 
HOME 
REM MENU 


138968 


13108 
19888 


28888 





TEXT : HOME 
PRINT ,,55F$35s"PAR D. SUREAU" 
UTAB 1 
A$C1) = "TEST" 
A$C2) = "AJOUTE" 
A$C3) = "SOMMAIRE" 
A$(4) = “INSTRUCTIONS" 
A$C5) = "QUITTE & SAUVEGARDE" 
A$C6) = "RECHERCHE" 
A$(7) = "LIGNE" 
FOR 1 = 1 TO 5: HTAB 22 - 1 X 2: 
GOSUB 68: NEXT 
GOSUB 12888 
GET À$ 
FOR À = 1 TO LEN (N$) 
IF MID$ (NS,A,1) € D A$ THEN N 
EXT : GOTO 190888 
IF À < > 1 THEN TEXT : HOME 
ON À GOSUB 38808 ,5888 ,1886,7806,88 
88,2888,2888 
GOTO 18888 
REM LOGO 
GOSUB 11 
FOR 1 = i TO 28 
J= INT (I / 2) 


& INUERSE 21 - 1,1 X 2,11 - J,J 
x 2 

NEXT 

GOSUB 14: GOSUB 14 

GOSUB 13 

IF B > 128 THEN RETURN 
B = 36:C = 18: GOSUB 14 

GOTO 12848 

REM SON & INVERSE 

FOR I = 778 TO 983: READ B: POKE 
1,8: NEXT 

CALL 799: REM INIT. INVERSE 

DATA 173,48,192,136,208,5,286 
DATA 6,3,248,9,282,288,245, 174 
DATA 5,3,76,18,3,96 

DATA 32,88,255,186,2082,189,8,1,2 
4,185,27,141,246,3,232, 189,8,1,18 
5,0,141,247, 8, 169,76,141,245,3,96 
.281,158,248,3,188,6,0,168,8,152, 
72,32,245,236,184,168,282,150,24, 
288,192,4,144,241,165,26,133,37,5 
6,181,27,133 

DATA 27,165,24,56,181,25,133,25, 
198,37,2308,37,32,34,252,165,37,19 
7,27,144,1,96,164,24,177,48,48,4, 
9,128,208,2,41,63,145,48,288,196, 
25,144,239,176,223,255,6 

RETURN 

REM XX TE ST xx 

COPYRIGHT (CC) 1982 
DENIS SUREAU 
DATA FIN 


Message aux créateurs de logiciel 


Nous allons bientôt commercialiser des programmes en plus de la revue Pom's, la rémunération des auteurs 
s’effectuant selon le principe des droits d'auteur. 


Bien entendu, les programmes destinés à ce mode de distribution doivent être des produits finis, autant par la 
qualité des programmes que par celle de la documentation et par l’environnement visuel et sonore. 


Nous sommes prêts à analyser vos propositions et à vous aider à transformer des idées en produits logiciels. 
Envoyez-nous vos contributions ; nous vous aiderons à diffuser ces programmes. 
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DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 


Datalife 


LEE RTS 
GS - 


Datalife 
SE 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4”. 
- 5 1/4!" en 48 et 96 TPI, simple et double face. 


Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 
75015 3. 
Tél. 533-01-37. 











Visicalc et traitement de texte 


Je tiens à remercier ici Judith Ker- 
tesz, une de nos fidèles lectrices, qui 
nous a donné l’idée de cet article en 
nous montrant comment mettre des 
minuscules dans un tableau Visicalc. 


Visicalc avec 
des minuscules 


Ceux d’entre nous qui travaillent 
avec un Apple II Plus sans la ROM 
minuscules regrettent parfois de ne 
pouvoir les utiliser dans Visicalc. En 
fait, cela peut se faire sans difficulté, 
quoique l'effort ne soit pas justifié 
pour un tableau d'usage peu fré- 
quent. Par contre, un tableau à 
usage multiples, servant à l’élabora- 
tion de factures par exemple, est 
plus satisfaisant s’il peut exploiter les 
minuscules de l'imprimante. 


Le principe est relativement simple. 
Le fichier Visicalc est un fichier 
TEXT que l’on peut modifier à l’aide 
d’un programme de traitement de 
texte. La procédure est par consé- 
quent la suivante : 


1) Créer le tableau souhaité avec 
Visicalc 

2) Sauvegarder le fichier correspon- 
dant avec [/SSFACTURE] (ou tout 
autre nom que « FACTURE ») 
Comme dans le livre « Visicalc sur 
Apple », nous mettons entre cro- 
chets les textes à entrer au clavier 
pour Visicalc. 

3) Lire en traitement de texte le 
fichier FACTURE 

4) Remplacer en mode édition les 
majuscules par les minuscules sou- 
haitées 

5) Sauvegarde le fichier sous un 
nom qui nous rappelle la présence 
des minuscules, par exemple 
FACT.MIN 


Quand on souhaite imprimer une 
facture, il suffit de faire 
[/SLFACT.MIN] en Visicalc, d'y 
ajouter les informations propres à la 
facture considérée, puis de lancer 
son impression. Quand Visicalc lit 
des minuscules, il fait apparaître à 
l'écran les majuscules correspondan- 
tes. C’est uniquement à l'impression 
(ou avec les lettres accentuées) que 
l’on voit qu'il y a effectivement des 
minuscules aux endroits nécessaires. 


Les utilisateurs d'Apple Ile pourront 
aussi constater que le programme 
Visicalc fait apparaître des majuscu- 
les à l’écran, bien que les minuscules 
existent avec ce matériel. 


Bien entendu, si l’on veut éviter de 
perdre du temps en pratiquant ainsi 
le va-et-vient entre Visicalc et le pro- 
gramme de traitement de texte, il 
faut se contenter de majuscules pour 
les informations relatives à chaque 
facture spécifique. 


Cette façon de travailler suppose 
que votre programme de traitement 
de texte sache lire des fichiers texte. 
Il n’y aura pas de problème si vous 
travaillez avec Applewriter II, Magic 
Window ou tout autre système utili- 
sant des fichiers TEXT. 


Si par contre vous possédez le célè- 
bre Applewriter |, vous pouvez tout 
de même vous en tirer en utilisant les 
programmes TEXT to Applewriter I 
et Appelwriter I to TEXT présentés 
ci-dessous. 


Nous fournissons en réduction un 
exemple de facture réalisée pour 
Pom's. Le fichier FACT.MIN se 
trouve sur la disquette d’accompa- 
gnement. Le lecteur pourra consta- 
ter sans effort que la solution propo- 


Hervé Thiriez 


sée dans cet article fonctionne sans 
moindre problème. 


Passons maintenant aux program- 
mes de conversion entre un fichier 
TEXT et le programme Applewri- 
ter I. 


TEXT to Applewriter I 


Afin de convertir un fichier TEXT en 
format Applewriter I, il suffit d’exé- 
cuter le programme suivant. Outre 
son intérêt pour l’utilisation liée à 
Visicalc, ce programme permet 
d'exploiter les possibilités d'Applew- 
riter avec tout fichier TEXT, en parti- 
culier pour l'édition de fichiers 
EXEC. 


Une autre application de ce pro- 
gramme de converssion consiste, 
après avoir effectué avec [/PF-E36 
RETURN FACTURE] la sauvegarde 
du tableau à imprimer (et non plus 
de la description du tableau), à le 
convertir en format Applewriter. Le 
tableau Visicalc peut alors être inté- 
gré avec CTRL-I dans un rapport 
édité en Applewriter. 


Notre but se limite ici à vous fournir 
un bon outil de travail. Nous ne 
commenterons donc pas le mode de 
fonctionnement de ce programme. 
Nous laissons le lecteur exercer sa 
sagacité dans cette analyse. 


Applewriter I to TEXT 


Ce programme, à l'opposé, trans- 
forme un fichier Applewriter quel- 
conque en fichier TEXT. On peut 
ainsi créer un fichier EXEC en traite- 
ment de texte, et le convertir grâce à 
ce programme en fichier TEXT. 


sus Jus 


MILITE En 





Pom's n° 7 


43 
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FF 7 
Editions MEV STE, MICROFANA & CIE 
49, rue Lamartine 
78000 Versailles 13: RUE DE L'AFFLE 4 
75016 FARIS CEDEX 89 
L. a 
Facture No: 1234 
Date 10/01/83 
Références Quantité Frix Un. Total HT 
Recueil de Fon’s 1 112619 LITE 
Fom’s numéros 7 à 10 1 LUZ: LO 112+19 
Total HT, 224,30 
TVA À 7% 15:70 
TOTAL TTC 240,00 
Disquettes recueil 1 126.48 126.48 
Disaugelttes NOS 7-10 L 147,55 147,55 
Disquette Visicalc À 63,4 63:24 
Boites 10 Vernatim & 200,00 400,00 
T-Shirts 4 42,16 168:63 
Total HT 905,90 
TVA 18,6 % 168,50 
Total TTC 1074.40 
Total à PEMOT vost 0 + 1314.40 
En votre saimable réalement à réception de facture 
Editions MEV Bureaux : 59, B‘ de Glatigny 78000 - Versailles Æ (3) 918-13-07 
SARL au capital de 20 000 F — RCS Versailles B 322 815 317 — SIRET 322 815 317 00019 
AE © 
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TEXT to Applewriter I 


18 
28 


38 
48 
58 


68 


78 


88 


98 
188 


118 


120 
138 


148 


AS = 


REM XXX TEXT TO APPLEWRITER XXX 

TEXT : HOME :D$ = CHR$ (4): ONERR 
GOTO 188 

DATA 169,1,133,38,169,25,133,31,32, 
12,253, 168 

DATA 8,9,128,281,141,248,12,281,168 
,144,241,281 

DATA  224,144,2,233,97,185,64,145,3 
8,238,38,208 

DATA  227,238,31,288,223: FOR 1 = 7 
68 TO 888: READ J: POKE 1,J: NEXT 


HTAB 5: INVERSE : PRINT *CONVERSION 
TEXT ==) APPLENRITER®": NORMAL : UV 
TAB 6: INPUT "FICHIER À TRANSFERE 
R : "sN$: PRINT 
“DU DRIVE : ": GOSUB 138:D1 = D: 
PRINT :4$% = "AU DRIVE : ": GOSUB 
138 :D2 = D 
PRINT D$"OPEN°N$" ,D"D1: PRINT D$"REA 
D'N$: CALL 768 
PRINT D$"CLOSE": POKE 216,8: POKE é 
488,131 
PEEK (38) + PEEK (31) X 256: P 
OKE D,96: PRINT : PRINT D$"*BSAVET 
EXT."N$",4$1988,L"D - 6399" ,D"D2 
PRINT : PRINT “TRANSFORMATION TERMI 
NEE ..."3 END 
PRINT À$;: GET A$: 
$ > *2" THEN 138 
D = VAL (A$): PRINT D: 


D = 


IF À$ < “1" OR À 


RETURN 


Micromos : 


e Disques durs à cartouche amovible sur 


APPLE II et assimilés. 
e Mono ou multipostes 
e Sous DOS 3.3 


e De 10 + 10 à 10 + 130 Mo en ligne 
sur un seul slot APPLE II 


Laboratoire : 17, Plateau de la Ravinière - 
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Applewriter I to TEXT 


18 REM XX%X%X APPLEHRITER TO TEXT xxx% 
28 TEXT : HOME :D$ = CHR$ (4): ONERR 
GOTO 148 
38 PRINT * “3: INVERSE : PRINT "CONVE 
RSION APPLEWRITER ==} TEXT*: NORM 
AL 
48 VTAB 4: INPUT "FICHIER APPLEHRITER : 
TEXT.";N$: PRINT : PRINT "METTRE 
LA DISQUETTE DANS LE DRIVE 1" 
58 VTAB 8: PRINT “APPUYER SUR UNE TOUCH 
E POUR CONTINUER": GET A$: PRINT 
: PRINT D$"BLOADTEXT."N$: UTAB 8: 
CALL - 868: PRINT "FICHIER °N$" 
CHARGE ..." 
68 VTAB 18: INPUT "A TRANSFERER SUR QUE 
L, DRIVE 2 "Ds TIF*DTC:1 OR D:3. 2 
THEN 68 
78 PRINT : PRINT “ATTENDEZ LE MESSAGE D 
E BONNE CONCLUSION,LE PROCESSUS E 
ST ASSEZ LONG ...":ADR = 6481: PR 
INT D$"OPEN"N$" ,D"D: PRINT D$"WRI 
TE°NS 
88 À = PEEK (ADR) :ADR = ADR + 1 
968 IF À > 223 THEN À = À - 64 
188 IF À > 191 THEN À = À + 32 
118 IF À < 32 THEN À = À + 192 
128 IF À < 64 THEN À = À + 128 
138 1F À = 96 THEN 158 
148 PRINT CHR$& (A) ;: GOTO 88 
158 PRINT : PRINT D#$#"CLOSE": PRINT : PR 
INT “TRANSFORMATION TERMINEE ..," 


95520 OSNY - 


Les pionniers des années 80 


e Tous nos produits sont 
compatibles avec l’APPLE //e 


Tél. (3) 032-16-71 - (3) 032-37-78 














Récapitulation corrigée 


X89D.CFD 


888D- 28 2F FB 
0818- 28 58 FC 
8818- FE AD 
8828- 28 2 
0828- AB A9 
838- 8D 81 
0838- 84 8C D 
8849- AB 94 4? 


8% 
CAE 


S 
& 
S ERA 


DRE: 
BRSSSSTSSTESSRRESSSES 


BTIREDESEBSTIERDESSSSSSSESBSSRSSSS 


E9 
8878- E8 AC 81 
8878- 4C D6 84 
6838- 93 89 Eé 
8898- AS FB 18 
8898- C9 63 F8 
@8h8- F6 52 DD 


LELMBESTERES RTS 2885858888 m 


SDSRSTABSEBTLBRRESSEEINASSSSE 
BILLES SLSLGLISTÉGIE SSSRIES 


88F8- DO 09 AS 06 18 49 23 98 
988- 04 E6 02 A9 6B A8 84 86 


89A8- F6 B7 28 24 ED 28 90 FC 
8988- A9 15 85 24 AE 47 9B AD 
8988- 68 98 28 24 ED A8 6F B9 
89C8- BC 8B 99 18 84 88 18 F7 
89C8- 28 2F FB A9 8D 85 24 28 
89D6- 9C FC A2 6A AD 89 98 C9? 
8908- BF D6 82 A2 68 8E DD 87 
89E8- AB 6D B9 CB 6B 99 CF 67 
89E8- 68 D6 F7 46 84 46 83 28 
@9FB- GC FD C9 A8 DB 83 4C 9A 
89F8- 9B C9 AA DB BC A9 67 AB 
GAG6- FF 90 89 9B 8C 8B 98 D6 
8A88- 86 C9 DD D6 86 AS BF A8 
8A18- 9D D6 EE C9 95 D@ 8B 49 


8A28- 4D 88 C? 
A28- DB EF C9 
8) 


A5B- F8 58 C9 B8 98 99 C9 DB 


e æ 
Hello corrigé 
Thierry Le Tallec et Jacques Tran-Van 
Programme HELLO du Pom’s n° 6 (page 34) 


GAAS- 8D 88 28 58 FC A2 86 28 
SABB- 94 0B 28 0C FD 38 F8 24 


8B58- 96 28 71 9B 28 19 8B 4C 
@B68- A6 9A 8E F4 B7 86 JE A8 
6B68- 88 8C EB B7 84 86 84 8i 
8B78- A9 18 95 82 28 71 9B A9 
8B78- 0F A8 11 28 FD 6B 28 19 
8B88- @B EE F1 87 CE ED B7 18 
6B88- F5 AD ED C8 AD EE C8 18 
@B98- 92 95 1E 68 8E BB ES A9 
8B98- 86 80 C1 BS AD 48 AÀ 8D 
@BAB- CB BS 4C Dé 93 AE BE DD 
8BAS- AA D3 D2 DD AA 2D 20 18 
6889- @F 0D 27 13 2D 2D A8 48 
8BB8- Dé CF CC AE AB D3 CS C3 
8BC8- D4 CS DS D2 D3 A8 CC C? 
BC8- C2 D2 C5 D3 16 8F 14 12 
@BD6- 05 26 83 88 8F 49 18 A8 
6BDS- BA AG AB A8 C3 C9 D3 C1 
@BE8- C2 D4 CE C9 A8 C3 C8 Ci 
BES- D2 C7 CS CD CS CE D4 A8 
@BF8- C4 C5 A8 CC A7 C9 CE D4 
BF8- C5 C7 C5 D2 A9 8€ EC B7 
@C08- 8D ED B7 48 AS @C 4A B8 


8C58- D6 80 86 08 24 78 9B 38 
6C68- D5 4C 66 DS A9 68 8D E7 


98A8- CA D6 F3 A4 8a58- B8 95 C? C1 98 82 E9 2C 8C88- 5B dA B8 34 AD 88 96 85 
Æ 48B8- 81 8D ED B7 GAGB- E9 95 C5 68 B8 39 8A 8A 8C18- 84 E9 83 A8 AD 81 96 85 
Hs 8888- D7 8D EC B7 8A68- AA EC 08 94 BD 81 96 48 8C18- 05 E9 88 28 71 9B 28 
ai G8C8- AF 05 E8 E8 8478- 29 8F 28 FD 8B 48 4A 4A QC28- 9B 20 78 98 18 13 A6 84 
L s8c8- 67 98 28 19 8A78- 4A 44 09 16 85 82 BD 82 8C28- A4 85 28 96 FD AE 02 96 
E 08D8- 2F 29 71 9 ga88- 96 85 QC BD 83 96 85 81 8C38- AD 93 96 28 41 F9 4C BF 
8808- 0E 84 18 A2 8A89- AB 1E Bi 81 99 DC 97 99 0C38- 90 4C 64 86 4D 88 96 85 
| 88€8- D 95 11 Bi 1 8A98- 74 A 88 DO F5 24 83 18 @C48- AF 85 69 AD 81 96 69 88 

88€8- DO F9 E6 9F {1 8A98- 26 20 B7 BA Bi 81 49 88 8C48- 85 B8 85 4A A9 FF AB A9 
- 88F9- F2 29 58 FC A9 18 85 62 8AAB- 91 81 A2 82 28 62 8B 4€ 0C58- 97 29 71 9B 26 3E 9B 85 





46 


8908- A5 88 C9 28 98 83 4C 6F 
@918- 89 C9? 14 D6 0B 85 28 85 
6918- 21 26 58 FC A4 86 AS 88 
8928- A 8A AA B1 81 36 D3 F8 


BABS- 1E 18 64 A2 84 D6 3F 24 
SACS- 84 18 1D 28 B7 6A BI 8i 
BACS- 18 84 A2 84 DB 38 A9 75 
6ADG- 8D C3 B5 A9 AA 8D C4 B5 


OC68- 9D 28 SE AS A9 6€ 8D E7 
ec78- 9D 28 48 F@ 28 D4 A7 38 
8C78- ED 88 96 85 CA A9 96 ED 
ec88- 01 96 85 CB 38 AS CA E? 


8928- 46 9D 88 94 E6 88 CB AS 8ADS- A2 65 28 94 8B 4C 6D 88 6C88- 82 A8 AS CB E9 88 28 71 
0938- 02 GA BA 8A 8A 11 81 9D 8AE8- AS 8C DB 43 4C Cé A5 C9 QC98- 9B 24 3E 98 289 7B 98 38 
8938- 81 96 C8 98 9D 83 96 4? 8AE8- 84 F8 38 98 84 A2 6D D 8c98- 9D 4C EC EF A6 8C Bi 81 
8948- FF 95 03 B1 01 38 84 46 @hFe- @D C9 62 F@ 31 A9 28 28 gCA8- F8 26 80 EC B7 C8 B1 81 
8948- 83 46 03 29 7F 9D 82 96 SAFS- B2 AS F8 2A A2 81 EB 84 SCAB- 8D ED B7 84 86 A8 E8 A9 
4958- A2 67 6A GA 88 43 CA D8 9B96- 98 20 DD FB 28 88 FE 2€ 0CB9- B7 28 85 B7 B8 42 A4 06 
8958- FA BD A5 0B 25 83 28 87 6B88- 82 A7 28 84 FE 28 9C FC 6CB8- C8 D6 82 Eé 82 EE Fi B7 
8968- 89 AS 48 C9 1B B8 92 49 4B18- 26 QC FD 28 F@ 91 4C 8F @CC8- D8 DC 4C 5B A7 08 98 A8 
0968- 2C 69 94 28 87 89 A2 8F 8B18- 09 29 E3 83 26 B5 B? 98 8CCS- 98 84 81 A9 97 85 82 8 
8976- C8 Bi 81 C9 A6 B8 84 C? 4B28- @4 A2 68 DG D9 49 28 49 8CD4- F8 B7 8D F1 B7 68 28 D4 
8978- 86 B8 F5 28 ED FD CA D8 8B28- 9B 28 19 8B AD 81 97 8D 8CD8- A7 85 48 A9 16 28 SA FC 
@989- EF 28 SE FD 4C FA 08 28 0B30- 68 98 A8 F@ 17 AD 82 97 QCE8- 28 1A FC 26 8E FD A8 BF 
8988- ED FD AS AD 4C ED FD 28 0838- 28 FD 8B EE Fi B7 28 19 ACES- A9 90 8C F2 93 8D F3 63 
8998- 2F FE A6 0F 84 24 49 88 @B48- 4B A9 88 9 6C 98 99 68 QCFA- 49 AS 8D F4 93 24 87 48 
0998- 85 97 28 5B FB B9 AC 8B 6B48- 98 C8 DB F7 AC 6C 97 AD @CF8- 28 78 9B 4C BF 90 
8948- 99 FF 63 88 D8 F7 98 AE 6B58- 4D 97 28 FD 8B A8 88 A9 x 
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Gestion de masques en BASIC 


Gérard Michel 


Pour commencer, rendons à César 
ce qui lui appartient ! Les routines 
présentées ci-après s'inspirent 
largement des principes développés 
pour la gestion des masques 
d’entrée/sortie de la carte 
MEM/DOS 6 502. Elles ne préten- 
dent pas toutefois, c'est évident, 
atteindre le même niveau de perfor- 
mance, tant en ce qui concerne la 
facilité d'utilisation (gestion conjointe 
des masques et des variables), que le 
stockage sur disque (recodage des 
informations) ou la rapidité d’accès 
(stockage des masques en mémoire 
RAM après leur ouverture.….). 


Notre ambition se borne à vous offrir 
un utilitaire qui, combiné avec la 
routine d’'INPUT publiée dans le 
numéro 6 de Pom's, vous permette 
de réaliser une gestion d'écran plus 
souple et plus complète que par les 
seules instructions du BASIC. 


Routine de gestion de 
masques 


Le principe consiste à « dessiner » le 
masque directement sur l'écran, puis 
à sauver la page TEXT correspon- 
dante pour un chargement ultérieur 
à partir de vos programmes. Le pro- 
gramme Applesoft GESMASK vous 
permet, dans les traitements CREA- 
TION et MODIFICATION, de réali- 
ser ces « mise en pages ». Quelques 
touches de fonction ont été prévues 
pour faciliter ce travail : 


e Déplacement vers la droite ou la 
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gauche sans affecter le contenu de 
l'écran par les touches « —æ» et 
e Déplacement vers 
RETURN. 

e Déplacement vers le haut par 
CTRL-R. 

e Passage en mode INVERSE par 
CTRLI. 

e Passage en mode NORMAL par 
CTRL-N. 

e Décalage de tout l'écran vers la 
droite à partir d’un point donné par 
CTRL-D. 

e Décalage de tout l'écran vers la 
gauche à partir d’un point donné par 
CTRL-G. 

e Répétition verticale d’un caractère 
par CTRL-V (il faut se placer sur le 
caractère concerné, puis faire 
CTRL-V). 

e La touche REPT conserve sa fonc- 
tion habituelle. 

e La touche ESC permet de valider 
l'écran et de le sauver sur disquette 
(ou de revenir au menu en cas de 
consultation). 


le bas par 


Vous constaterez rapidement qu'il 
est plus agréable de réaliser par ce 
moyen des écrans complexes ou 
« esthétiques » que d'utiliser une 
suite d'instructions BASIC telles que 
VTAB, HTAB et autres PRINT... 


De plus, si vous perdez de la place 
sur disquette (chaque écran occupe 
6 secteurs), vous en économiserez 
en mémoire centrale, l’encombre- 
ment de vos programmes étant 
réduit. 


Hard-Copy TEXT 


Cette routine « standard » vous per- 
mettra : 

e d'imprimer vos masques afin de 
repérer l'endroit où seront position- 
nées les variables (paramètres H 
et V qu'il faut fournir à la routine 
d'INPUT). 

e d'imprimer des écrans à partir de 
vos programmes après consultation 
(voir le programme Applesoft 
MASK.DEMO). 


Impression paramétrée 


Pour éditer sur imprimante des don- 
nées sous une forme quelque peu 
présentable, il faut bien souvent 
commencer par définir un tableau à 
la main. Il faut ensuite jongler avec 
les SPC, LEFT$.. à l’intérieur du 
programme BASIC pour retrouver 
le tableau voulu sur l'imprimante. 


La solution proposée ici consiste, 
une fois encore, à dessiner le tableau 
sur l’écran pour le reproduire ensuite 
sur papier. Les masques correspon- 
dants peuvent être créés par GES- 
MASK. 


Chaque ligne d'impression est repé- 
rée par deux caractères de « con- 
trôle » identiques entre lesquels elle 
doit se trouver. Ces caractères peu- 
vent être n'importe quelle lettre de A 
à Z affichée en INVERSE sur l'écran 
(ceci impose de ne pas mettre de let- 
tres en INVERSE dans les lignes à 
imprimer). Deux lignes différentes 
doivent en outre comporter des 


OLIVETTI PRAXIS 
AVEC INTERFACE APPLE 


5400 F h.. 


L'imprimante qui est aussi une machine à 


écrire. 


Marguerites interchangeables. 


TOTALE FORMATION 
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caractères de contrôle différents. Le 
programme MASK.DEMO fournit 
une illustration de ce type de traite- 
ment (si votre interface/imprimante 
réalise une impression simultanée à 
l'écran, rajoutez PRINT CHRS (9) 


programme). 


Programme GESMASK 


18 HIMEM: 37348 
26 D$ = CHR$ (4):D1$ = CHR$ (13) + D$: 
PRINT D$"BLOAD INPUT.0BJ": PRINT 
D$"BLOAD MASKIN.0BJ": PRINT D$"B 
LOAD HCT.OBJ" 
36 ONERR GOTO 9888 
48 GOTO 388 
78 VTAB 22: HTAB 1: INVERSE : PRINT ZM# 
5: NORMAL : INPUT " ? “32$: UTAB 
22: CALL - 868:2$% = LEFT$ (Z$,1 
>: IF Z$ = “O" OR Z$ = “N" THEN 
RETURN 
71 GOTO 78 
88 REM 
98 REM ROUTINE D’INPUT 
188 REM 
149 UTAB UV: HTAB H: PRINT LEFT$ (PO$,L 
D" “3: VTAB UV: HTAB H: IF ME = 
2 OR X = 1 THEN PRINT ZY#(LL): 1 
F BX = 8 THEN 168 
158 UTAB UV: POKE 8,TY: POKE 36,H - 1: P 
OKE 7,LO: CALL 37358 
154 LC = PEEK (9:E = PEEK (6): IF E = 
9 THEN RETURN 
156 22% = ““; PRINT SPCC LO - LOC): 1F L 
C = @ THEN 168 
158 FOR 2Z = 1 TO LC:2Z = PEEK (784 + 2 
Z) - 128:22$ = Z2$ + CHR$ (22: N 
EXT 
162 IF TY < 3 THEN RETURN 
163 IF MID$ (22$,2,1) = "/" THEN 2Z$ = 
"@" + 22$ 
164 IF MID$ (22$,5,1) = "/" THEN 2Z$ = 
LEFTS (22$,3) + "9" + RIGHTS « 
22% ,4) 
165 IF LEN (22$) < > 8 THEN Z$ = ME#( 
3>: GOSUB 198: GOTO 149 
1éé 24 = VAL € MID$ (22$,4,222: IF VAL 
€ LEFT$ (ZZ$,2)) > 31 OR Z4 > 12 
OR 24 X UAL ( RIGHT# (228,2) 
= @ THEN Z$ = ME$(3): GOSUB 198 
: GOTO 149 
167 RETURN Ë 
168 IF ME = 2 OR X = 1 THEN UTAB V: HT 
AB H:22$ = ZY#$(LL): PRINT ZZ$ SPC 
€ LO - LEN (ZZ#)) 
169 RETURN 
188 REM 
198 UTAB 21: HTAB 1: CALL - 868: INVER 
SE : FOR Z = 1 TO 158:Z1 = PEEK 
{ — 16336): NEXT : PRINT 2$;: NOR 
MAL : FOR Z = 1 TO 2588: NEXT : H 
TAB 1: CALL - 868: RETURN 
308 DATA 9,28,1,2,17,36,1,1 
318 FOR I = 1 TO 2: READ ZVZ(1) ,ZHA(1), 
ZLACID ,TYZCID : NEXT 
DS PO mn lanterne 
488 TEXT : HOME : PRINT D1$"BLOAD GESMA 
SK1,D1": REM PREMIER MASQUE DU 


“80 N°” après chaque PR#1 de ce 


Mode d'emploi 


Le lecteur est prié de se reporter au 
mode d'emploi décrit dans la routine 


485 


4168 
428 


438 
448 
458 


d'INPUT présentée dans le 
numéro 6 de Pom's. Il est difficile de 
la répéter ici, d'autant que le mode 
d'emploi peut aussi être découvert 
par tâtonnements ou, dans le pire 
des cas, par analyse du programme ! 


PROGRAMME 

VU = 14:H = 28:L0 = 1:TY = 2:X = 80:ME 
= 8:BZ = 8 

E = 6: GOSUB 149: IF E = 9 THEN 418 

ZA = VAL (22%): IF 2% < 1 OR 2% > 6 
THEN 418 

IF ZX = 6 THEN HOME : END 
V = 17:H = 24:L0 = 9:iTY = ill = 1 
E = 8: GOSUB 149: IF E = 9 THEN 485 


468 2Y$(1) = 22$:M$ = 22$:2M$ = "ENREGIS 
TREMENT CONFIRME": GOSUB 78: IF 2 
$ = "N" THEN X = 1: GOTO 458 

478 HOME : PRINT D$"BLOAD GESMASK2" :X = 
. B:ME = 8:B% = 6: REM DEUXIEME M 
ASQUE DU PROGRAMME 

488 VU = 7:H = 29:TY = 2:L0O = 1:E = 0: GO 
SUB 149: IF E = 9 THEN 488 

498 2Y$(C1) = 22Z$#:D = VAL (22$#): IF D < 
1 OR D > 2 THEN X = 1: GOTO 488 

508 IF 2% < > 4 THEN 568 

518 ME = 8:D% = 2:X = 8 

528 FOR LL = DZ TO 3:L1 = LL - 1:00 = 2V 
ACL1 :H = ZHA(L 1) :LO = ZLZCL1) : TY 
= TYZ(L1) 

525 E = 6: GOSUB 149: IF E = 9 AND LL = 
2 THEN LL = 3: NEXT :X = 1: GOTO 
488 

5386 IF E = 9 THEN LL = i:X = 1: GOTO 55 
8 

548 ZYS#(LL) = 22$ 

558 NEXT :S = VAL (2Y$(2)):E$ = 2Y$(3) 
: IF S € 1 OR S > 5 OR (ES < . >.” 
O0" AND E$ < 3 “N*") THEN DZ = 3:X 
= 1: GOTO 528 

568 GOSUB 78: IF 2$ = “N° THEN X = 1: G 
OTO 488 

578 Z = 8: HOME : PRINT Di$"BLOAD"M$" ,D* 
D: ON ZX GOTO 688,618 ,628,638 ,658 

688 1F 2 = @ THEN 9818 

682 CALL 37588: REM ROUTINE DE GESTION 
DE MASQUES 

685 POKE 34,24: PRINT D1$"BSAVE"M$" ,A18 
24,L1824": GOTO 488 

618 CALL 37583: GOTO 685: REM ON SAUTE 
LE "HOME" DE LA ROUTINE 

628 POKE 36,8: POKE 37,23: CALL 37537: 
GOTO 488: REM ON SAUTE DIRECTEME 
NT AU “JSR UTAB® DE LA ROUTINE 

638 PRINT D$"PR#"S: 1F E$ = "O0" THEN P 
RINT CHR$ (9) * 88N" 

648 CALL 37989: PRINT Di$"PR#8": GOTO 4 
88: REM ROUTINE DE HARD-COPY TEX 
T 

658 2M$ = "ANNULATION CONFIRMEE": GOSUB 
78: IF 2$ = “N* THEN 468 

668 PRINT Di$"DELETE"M$: GOTO 488 

9088 Z = PEEK (222): IF Z = 6 AND 2% = 
1 THEN 668 

9818 IF 24 = 1 THEN Z2$ = "CE MASQUE EXI 
STE DEJA": GOSUB 1978: GOTO 488 

9628 2$ = "CE MASQUE N’EXISTE PAS": GOSU 


B 198: GOTO 488 


48 
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AB H:22$ = ZY$(LL): PRINT ZZ$ SPC 
Programme MASK.DEMO to LU D 


16 HIMEM: 3734g 169 RETURN 
28 D$ = CHR$ (4) :D1$ = CHR$S (13) + D$: 198 UVTAB 21: HTAB 1: CALL - 868: INVER 
PRINT D$"BLOAD INPUT.0OBJ": PRINT SE : FOR Z = 1 TO 158:21 = PEEK 
D$"BLOAD PARA.OBJ": PRINT D$"BLO ( — 16336): NEXT : PRINT 2$;: NOR 
AD HCT.0OBJ" MAL : FOR Z = 1 TO 2588: NEXT : H 
48 GOTO 3088 TAB 1: CALL - 868: RETURN 
45 REM 306. POS = ss scssesémmssessesrce" 
46 REM PLACE À L’ADRESSE $é LE CARACTE 318 DATA CREATION,MODIFICATION, CONSULT 
RE DE CONTROLE EN INVERSE ATION 
96 2 = ASC (2$) - 464: POKE 6,72: CALL 38 328 FOR 1 = i TO 3: READ LI$CI): NEXT 
939: RETURN 488 TEXT : HOME : PRINT D1$"BLOADMASK1" 
55 REM :LX = @ 
78 VUTAB 22: HTAB 1: INVERSE : PRINT 2M$ 418 VU = 22:H = 38:L0 = 1:TY = 2:X = 0:ME 
5: NORMAL : INPUT " ? “:,Z$: UTAB = 8: GOSUB 149: IF E = 9 THEN 41 
22: CALL - 868:2$ = LEFTS (2$,1 8 
>: IF 2$ = "O" OR Z$ = “N" THEN 428 2% = VAL (229$): IF 2% < 1 OR 2% D S 
RE , Liu THEN 418 
71 GOTO 78 438 IF 2% = 5 THEN HOME : END 
138 UTAB 22: HTAEB i: INVERSE : PRINT "’ 448 IF 2% = 4 THEN 408 
RETURN’ OÙ ’?° POUR IMPRESSION" ; : 458 HOME : PRINT Di$"BLOD MASK2": VUTAB 
NORMAL : GET 2$: IF ASC (2$) < 4: HTAB 1: INVERSE : PRINT LI$(2 
> 13 AND 2% < > “?* THEN 138 2) 3: NORMAL 
148 VTAB 22: HTAB ji: CALL - 868 468 BX = 8 X (2% > 12:X = 1 X (BZ = 8) :M 
142 IF ASC CZ$) = 13 THEN RETURN E = 8:DX = 1:TY = 2 
145 POKE 34,24: PRINT Di$*“PR#1": CALL 3 478 FUR LL = DZ TO 18:L1 = LL / 2:L = 
7989: PRINT DI$"PR#8": RETURN INT (L1):DH = 1 X (LL = LD:U = 9 
147 VTAB V: HTAB H: PRINT LEFT$ (PO$,L + 2 X CL — DH):H = 16 + 15 *X DH:iL 
0) ;: VTAB VU: HTAB H: IF ME = 2 OR 0 = 9 - 2 x DH 
X = 1 THEN PRINT 2Y$(LL): 1F B% 488 E = 0: GOSUB 149: IF E = 9 AND LL = 
= 8 THEN 168 1 THEN LL = 1@: NEXT : GOTO 488 
158 VUTAB VU: POKE 8,TY: POKE 36,H - 1: P 498 IF E = 9 AND ME = @ THEN LZ = LL 
OKE 7,L0: CALL 37358 588 IF E = 9 THEN LL = LL - 2:ME = 2: G 
154 LC = PEEK (9) :E = PEEK (6): IF E = OTO 528 
9 THEN RETURN 518 ZY$(LL) = 22$:ME = 2 X (LL < LX - 1) 
1356 22% = ""s: PRINT SPC( LO - LO): IF L 529 NEXT :B% = @:L% = @: IF 2% = 3 THEN 
C = @ THEN 148 GOSUB 138: GOTO 4688 
158 FOR 22 = 1 TO LC:Z = PEEK (784 + Z 539 ZM$ = “ENREGISTREMENT CONFIRME": GOS 
Z) — 128:22$% = 22$ + CHR$ (2): N UB 78: 1F 2$ = "N" THEN X = 1:D% 
EXT = 18: GOTO 478 
162 IF TY < 3 THEN RETURN 548 GOTO 488 


163 IF MID$ (22$%,2,1) = "“/" THEN 22$ 688 HOME : PRINT D1i$"BLOADMASK3": POKE 
"6" + 22$ 34,24: PRINT D1$"PR#1":2$ = "A": 
GOSUB 58:2$% = "B": GOSUB 58:2$% = 





164 IF MID$S (22$,5,1) = “/* THEN 22$ = 
LEFTS$S (22$,3) + "8" + RIGHTS ( "A": GOSUB 58:2$ = "D": GOSUB 58: 
22$,4) PRINT ""3;: PRINT D$"PR#8" 
165 IF LEN (22$) < > 8 THEN 2$ = ME$( 618 FOR 1 = 1 TO 5: VUTAB 5: HTAB 13: PR 
3) : GOSUB 198: GOTO 149 INT "RUBRIQUE "Il: VTAB 6: HTAB 7: 
166 24 = VAL ( MID$ (22$,4,2)): IF VAL PRINT ZY$((2 X 1) - 12;: HTAB 27 
€ LEFTS (22$%,222 > 31 OR 24 > 12 : PRINT 2Y$(2 % 1); 
OR 24 X VAL ( RIGHT$ (22$,2)) < 628 PRINT D1$"PR#1":2$ = "C": GOSUB 58: 
= 60 THEN 2$ = ME$(3) : GOSUB 198 PRINT ""3;: PRINT D$&"PR#0": NEXT 
: GOTO 149 : PRINT D1#$"PR#1":2$% = "D": GOSUB 
167 RETURN 580:2$ = "A*: GOSUB S@: PRINT Di$ 
168 IF ME = 2 OR X = 1 THEN UTAB LV: HT “PR#8": GOTO 488 


Exemple : masque de MASK.DEMO 


XXXXXXXXXXXXEXXXEXXXEXEXAXEXEXELXLXXEXXKEXEXAXEXEXLLEXEKEXAEXEXXXLEXEXEXXXEXXXXX 


x INTITULE X VALEUR NO 1! x VALEUR NO 2 *% 
XXXXXXXXXEXXXXXXXEXXXXEXXXXLXEXXEEXXXXXXEXEXXXEXEXXXEXLLXEXXXEXXXXXEXXXXEXXXXX 
x X x x 
x RUBRIQUE 1 x 1234.56 x 987.65 X 
x RUBRIQUE 2 X 2233.44 x 999.88 x 
x RUBRIQUE 3 x 1918.28 x 234.56 x 
x RUBRIGUE 4 x 9753.10 x 963.08 x 
x RUBRIQUE 5 x 2323.23 x 111.22 x | 
x x x x | 
XXXXXXXXXXXXXXXXXXXXXXXXXXLXLXEXAXEXEXXXEXEXLLXEXEXXXEXXELXXXEXEXXXXXXEXXXXXEXXX 
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MASKIN.SCE — Lisa 1.5 


PARTS EEES SE SES ETS EEE EEE ETES EEE 


3 34 ROUTINE DE GESTION DE MASQUES X 


x 


8 500 ONNBBEPOPOPEENBBENEEREEX 


2 5x 
4 5x 
5; CODE = MASKIN.08J 
6 ;5* 
7 3% 
?; 
18 ORG $927C 
fl 0BJ 5888 
12 V2 EQU $18 
13 H2 EQU #19 
14 VI EPZ $8 
15 Hi EP2 $9 
16 EP2 47 
17 C EPZ $6 
18 ADR  EPZ $28 
19H EP2 424 
2 V EPZ $25 
21 VTAB EQU $FC22 
22 GET  EQU $FD8C 
23 HOME EQU $FC58 
24 JSR HOME 
25 LDA #4 
26 STA H 
27 DEB LAW 
28 OP #18 
Hi] BNE 58 
æ LDA 48 
31 STA V 
32 STA H 
33 JP 51 
34 S8 LDA H 
3 CP 4428 
36 BNE S1 
37 LDA 46 
38 STA H 
5 3 INC V 
ÊE 4 JP DEB 
Ée 41 Si JSR VTAB 
be. 4 JSR GET 
br 43 CP #98 
FE 44 BNE 52 
Er 45 RTS 
LE 4 52 CP 4460 
Ée 47 BNE 53 
F5 48 INC V 
à 4 JP DEB 
Li 58 53 OP 4495 
sl BNE 54 
52 INC H 
53 JP 58 
54 S4 OP #88 
5 BNE S5 
3% LDA H 
57 OP # 
58 BEQ S6 
59 DEC H 
6 AP Si 
61 56 LDA V 
62 œæ 4 
63 BEQ S1 
44 LDA #$27 
CS] STA H 
66 DEC V 
67 JP Si 
68 55 CP #92 
69 BNE S51 
# DEC V 
71 BPL 51 
72 LDA #$17 
73 STA U 
74 MP $1 
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3DRAPEAU POUR INVERSE 
ADRESSE JERE COLONNE 
3POSITION HOR. CURSEUR 
;POSITION VER. CURSEUR 


3DEPLACE CURSEUR EN V 
;ENTREE DE CARACTERE 


3DERNIERE LIGNE ? 
3 RETOUR 1ERE COL/IERE LIGNE 


3DERNIERE COL. DE LA LIGNE ? 


3PASSER À ÎERE COL. LIGNE SUIVANTE 


;POSITIONNE CURSEUR 
3ENTREE CARACTERE 

ESC ? 

RETURN ? 

OUI =) LIGNE SUIWNTE 

; “_)' rl 

ÿOUI =) CARACTERE SUIVANT 
; "ç-" ? 


3OUI =) CARACTERE PRECEDENT 
; "€" SUR ER CARAC. DE LA LIGNE 


3S1 1ER CARAC./IERE LIGNE : ON RESTE LA 


3DERNIER CARAC./LIGNE PRECEDENTE 


; CTRL-R ? 


;OUI =) LIGNE PRECEDENTE 
3SI V2=8 ON POSITIONNE EN VU 
30N SAUTE À LA DERNIERE LIGNE 





75 S51 OP #89 3 CTRL-I ? 

74 BE 552 

77 LDA #1 

78 $53 STAH 3SIGNALER LE *INVERSE * 

7% JM Si 

8 552 OP #48 ; CTRLN ? 

81 BNE S7 

82 LDA #8 3SIGNALER LE *NORMAL" 

83 JP 553 

84 57 OP #4% ; CTRL-V ? 

85 BNE 58 

86 LDA V 

87 CP #17 3DERNIERE LIGNE =) ON IGNORE 
88 BEQ Si 

89 JSR #FBCI ÿCALCUL ADRESSE BASE LIGNE V 
m LDY H 

91 LDA (ADR) ,Y 3PREND CARAC. H DE LIGNE U 
92 INC VU 3PASSE À LA LIGNE SUIVANTE 
LE) JSR 01 3AFFICHE LE CARACTERE 

94 DEC H ; REMET LE CURSEUR DANS LA MEME COLONNE 
5 MP S8 

96 58 CMP #484 : CTRL-D ? 

97 BEQ D8 

c:] JP 59 

99 D8  LDAV 

180 CP #17 

181 BNE Di 

182 LDA H 

183 CP 4427 

184 BNE Di 

185 RP Si 3DERNIERE COL/DERNIERE LIGNE : ON IGNORE 
186 D1 © LDAV ;SALVEGARDE POSITION CURSEUR 
167 STA 2 

188 LDA H 

189 STA H2 

118 OP #27 3S1 DERNIER CARAC. DE LA LIGNE =) PRENDRE 
111 ;LE PREMIER DE LA SUIVANTE 

112 BNE Dé 

113 LDA 49 

114 STA Hi 

115 INC VU 

116 LDA V 

117 STA VI 

118 JP 07 

119 Dé INC H sDECALAGE À PARTIR DU CARAC. SUIVANT 
128 LOA H 

121 STA Hi 

122 LDA V 

123 STA VI 

124 D7  LDA #17 30N DECALE LES CARACTERES DE 
125 3 L'AVANT DERNIER DE L'ECRAN JUSQU'A Hi/V1 

126 STA V 

127 03  LDY #426 

128 DS  JSR $FBCi 

129 LDA (ADR) ,Y 

13 INY 

131 STA (ADR) ,Y 

132 LDA V 

133 of Vi 

134 BNE D2 

13 CPY Hi 

136 BNE D2 

137 DIS LDAV2 ;0N EST À Hi/V{ =) RESTITUER H4 ET 
138 ; METTRE UN "BLANC® EN HW 

13 STA V 

148 LDA H2 

jai STA H 

142 LDA #48 

143 JSR 01 

144 DEC H 

145 MP Si 

146 ; 


147 ; PROCEDURE EN D2 =) COMMÆNT COPIER LE DERNIER CARACTERE 
148 ; D'UNE LIGNE SUR LE PREMIER DE LA SUIVANTE ET REVENIR 
149 ; À CETTE LIGNE 

158 ; 
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151 D2 CPY 41 227 LDA H 





152 BE D4 228 JP 67 

153 DEC V 229 68  LDAH 

154 LOA U 2% OP 427 

155 JSR $FBCI 231 BEQ 68 

156 LDY 4427 222 JP 64 

157 LOA (ADR ,Y 233 68  LDA #4 

158 STA € 234 JSR 01 

159 INC V 25 LDA V2 

168 LDA VU 23% STA V 

161 JSR sFBCi 237 LDA H2 

162 LOY 49 23 STA H 

163 LDA © 2# RP Si 

164 STA (ADR) ,Y 248 S18  JSR OUT 

165 CPY Hi 241 JP s8 

166 BE D18 242 OUT LDXH 

167 LDA VU 243 : M=1 =) TRANSFORMER LES CODES-ECRAN DES CARACTERES 

168 cp VI 244 : POUR AVOIR LES *INVERSE" 

169 BE D18 245 CPX 41 

178 JP Di! 246 BE 01 

171D18 DECU 247 OP 4408 

172 LDA U 248 BCS 02 

173 JP 03 249 SEC 

124 D4  DEY :DECALE CARACTERE PRECEDENT 258 SEC #89 

175 DEY 251 JP 0! 

176 MP 05 252 02 SEC 

177 S9 CMP H7 : CTRL-6 ? 253 SEC 4408 

178 ; 254 ; PROCEDURE 01 : AFFICHE LE CARACTERE ET AVANCE CURSEUR 

179 ; CTRL-6 =) DECALAGE À GAUCHE 255 01  STAC 

188 ; (MMES PRINCIPES GENERAUX QUE POUR CTRL-D) 256 LDA V 

181 ; 257 JSR #FBC! 

182 BEQ 68 258 LOY H 

183 RP 518 259 LDA € 

184 6 LDAU 268 STA (ADP ,Y 

185 OP 4417 261 INC H 

186 BE 61 262 RTS 

187 LDA H 263 DCH “INT 

188 op 4427 264 END 

189 BE 61 

198 MP $1 = 
19161  LDAU = 
192 STA V2 . <a 
193  LRH HCT.SCE — Lisa 1.5 FE 
194 STA H2 Lee) 
195 67 CP #427 LOGO EEE UCBEEEEX ES 
196 BE 64 2 3% X 5 
197 INC V 32% HARD-COPY ÉCRAN TEXT  X #2 
198 LDA #0 4 :X } 2 
199 STA H 5 À CODE = HCT.OBJ X É 
240 JP 62 6 ik Y Fes 
20164  INCH 7:34 F Al 
28262  LDAU 8 BPPPEROBRRREREE EE PBBEREE Z 
203 LOY H 4 + 
204 JSR 4FBC1 18 ORG 49465 

25 LDA (ADR ,Y ii 08J 4888 

286 STA C 2V  EP2 425 ; CF IMPRESSION PARAMETREE 

207 CPY 48 13 ADR  EPZ 328 

208 BE 63 14 PR  EQU SFDED 

209 DEC U 15 LDA 46 

218 LDA VU 16 STA VU 

211 JSR #FBC1 17 HC8  LDY # 

212 LOY #27 18 JSR 4FBCI 

213 LDA € 19 HCI  LDA (ADR) ,Y 

214 STA (ADR) ,Y 28 : CODE-ECRN D= 48 : CARAC. "NORMAL" 

215 INC V 21 OP #44 

216 LDA #4 2 BCS HC2 

21? STA H 23 3: CODE-ECRAN COMPRIS ENTRE 29 ET 39: CARAC. AUTRE QUE A-2 EN "INVERSE* 

218 JP 65 24 OP #428 

21963  LDAU 25 BCS HC3 

22% JSR $FBC1 2 CLC 

221 DEY 27 ; TRANSFORME CARAC. DE "A" À ‘2 EN "NORMAL" 

22 LDA € 2 ADC 4808 

22 STA (ADR) ,Y 9 2P HC2 

22465  LDAU % 

25 CP 4417 3 

226 BEQ 66 
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DÉBR2SSESESRSS 
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VMRSEECESEEE EEE CRETE EEE EEE SEE S 
x 


2:3% 
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JSR PR 3 IMPRIMANTE 26 JSR PR 
INY 3 CARACTERE SUIVANT 27 RTS 
CPY 4428 3DERNIERE COLONNE ? 28 HP&  LDX 41 ;0N À TROUVE LE IER CARAC. CONTROLE 
BNE HCI 2 NP HP2 
LDA #$8D ;FIN DE LIGNE D’IMPRESSION 38 HPS CPX 41 3 IER CARAC. CONTROLE DEJA TROUVE ? 
JSR PR 31 BNE HP2 
INC V LIGNE SUIVANTE 32 JSR PR 
LDA V 33 HP2 IN 3 CARACTERE SUIVANT 
OP #18 DERNIERE LIGNE ? 34 CPY 4428 ;DERNIERE COLONNE ? 
ENE HC8 #S BNE HP3 
RTS 3% INC VU 3LIGNE SUIVANTE 
DCH INT" 37 LDA V 
END 3æ CP 4418 DERNIERE LIGNE ? 
3 BNE HP4 
4 RTS 
ai DCM "INT" 
4 EN 


IMPRESSION PARAMETREE 


Exemple : masque de GESMASK 


x 
x 


CODE = PARA. BJ x 
x LAXXXAELEXAXAXLEXXXXELLEXXXXLLEXXKXELXEXX 
MEDAD EE CCCUEOO x x 
x GESTION DE MASQUES x 
ORG 49497 x x 
08) +898 = x 
EP2 425 ÿPOSITION VERTICALE CURSEUR x x 
EP2 428 YADRESSE PREMIERE. COLONNE X 1 - CREATION 2 - MODIFICATION x 
EP2 $6 1CARAC. DE CONTROLE EN *INVERSE" x x 
EQU $FDED 3SORTIE DE CARACTERE %X 3 - CONSULTATION 4 - IMPRESSION  * 
LA 48 # x 
STA V X 5 — ANNULATION 6 - FIN x 
LOX 46 x x 
LOY 40 3 Y=NO DE COLONNE x x 
JR #FBC1 YCALCUL ADRESSE BASE LIGNE COURANTE x VOTRE CHOIX : x 
LDA (ADR) ,Y x x 
op € ; CARACTERE DE CONTROLE ? x x 
BE HPI x NOM DU MASQUE ss s x 
CPX 41 x x 
BE HPS x x 
LA 4480 FIN DE LIGNE D'IMPRESSION M OOOOOPOUOOEXXXXKKEREXXXKXLLEXXKKKIEXX 


Abonnez-vous à Pom'’s 


La vie de votre revue dépend de son nombre d'abonnés. Plus vous êtes nombreux, plus 
nous pouvons vous rendre service, par l'augmentation correspondante de nos moyens 
comme par le plus grand nombre de contributions que nous recevrons forcément de vous. 


Nous avons volontairement choisi une politique de disquettes à bon marché ; ainsi, lorsque 
vous vous abonnez avec disquettes, chaque disquette vous revient à moins de 45 francs 
TTC, port compris ! 


Un abonnement à quatre numéros coûte aujourd'hui 295 francs. Cela ne sera-t-il pas 
largement amorti si une seule des 200 pages de texte que vous trouverez en quatre 
numéros vous résoud ce problème sur lequel vous séchez (on a vite fait de perdre deux ou 
trois jours sur un problème) ? 


Dans de nombreux numéros, nous vous avons offert des programmes comparables à ceux 
qui sont vendus de 250 à 500 francs dans les boutiques. Profitez-en ! 
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MASKIN.OBJ 9420- 93 A5 24 C9 27 F@ 983 4C 
9428- ES 93 AS A8 28 55 94 AD 


x927C.9464 9430- 18 88 85 25 AD 19 88 85 
9438- 24 4C A1 92 28 42 94 4C 

927C- 26 58 FC A9 9449- 92 92 A6 67 E8 8i D8 @D 

9288- 98 85 47 A5 25 C9 18 D8 9448- C9 CO B@ d6 38 E9 88 4C 

9288- 09 A9 G8 85 25 85 24 4C 9450- 55 94 38 E9 CO 85 dé A5 

9299- A1 92 A5 24 C9 28 D8 89 9458- 25 26 Ci FE Ad 24 AS 8é 

9298- A9 06 85 24 Eé 25 4C 83 9468- 91 28 Eé 24 68 

92A0- 92 28 22 FC 28 @C FD C9 

92A8- 9B D8 81 68 C9 8D DA 85 HCT.OBJ 

92B0- Eé 25 4C 83 92 C9 95 D@ 

G2B8- 05 Eé 24 4C 92 92 C9 88 x9465.97496 


92C8- D9 1A AS 24 C9 88 F8 85 

9465- A9 88 85 
92C8- Cé 24 4C A1 92 AS 25 C9 
92D8- 88 F9 CE A9 27 85 24 Cé Mn rt Ep PRER EL 2 
RC ARC 2e nse 9478- 18 69 CO 4C 81 94 18 69 
92E8- Cé 25 18 BD A9 17 85 25 

9480- 86 28 ED FD C8 C8 28 D@ 
92E8- 4C A1 92 C9 89 D8 87 A9 

9488- E5 A9 8D 28 ED FD Eé 25 
92F8- 81 85 07 4C A1 92 C9 8E Rd D 2 Dé DS 4e 
g2F8- DB 85 A9 88 4C F1 92 C9 
9308- 96 D8 17 ÀS 25 C9 17 F8 


5308- 98 26 Ci FB A4 24 Bi 28 PARA. OBJ 

9319- Eé 25 26 55 94 Cé 24 4C X9497.94CB 

9318- 92 92 C9 84 F8 03 4C B8 

9328- 93 À5 25 C9 17 D8 89 À5 9497- A9 

9328- 24 C9 27 D8 83 4C Ai 72 9498- 68 85 25 A2 06 AG a8 78 

93380- À5 25 8D 18 68 ÀS5 24 8D 9448- Ci FB B1 28 C5 806 D@ 6F 

9338- 19 068 C9 27 DG 8D À9 88 o4A8- E8 61 D8 86 A9 8D 28 ED 

9348- 85 67 Eé 25 AS 25 85 08 94B8- FD 68 A2 81 4C BE 94 E8 E 
9348- 4C SS 93 Eé 24 AS 24 85 $4B8- 01 D8 83 28 ED FD C8 C@ ie 
9350- 89 ÀS 25 85 08 A7 17 85 94aC8- 28 D8 DF Eé 25 À5 25 C9 5 
9358- 25 AG 26 29 Ci FB Bi 28 94C8- 18 D& DZ 48 É 
9368- C8 91 28 AS 25 C5 08 D8 ce 
9368- 18 C4 89 DB 14 AD 18 68 INPUT. OBJ É 
9376- 85 25 AD 19 88 85 24 A9 re ns “4 
9378- AG 28 55 94 Cé 24 4C Ai (Voir Pom's 6 pages 19-22) us 
9380- 92 CA 81 D8 2E Cé 25 À5 X91E6.926F El 
9388- 25 29 Ci FB A8 27 B1 28 E 
9398- 85 86 Eé 25 A5 25 20 C1 SiEé- AS 88 ES 
9398- FB AG 88 AS 86 91 28 C4 91E8- A6 87 9D 11 83 CA 18 FA 

9348- 99 DB 89 AS 25 C5 88 DO S1F8- A2 86 8é @é 28 GC FD C9 

9348- 83 4C 6D 93 Cé 25 A5 25 91F8- 8D FO 72 E4 07 98 @4 C9 

93B9- 4C 59 93 88 88 4C 5B 93 9288- 88 F8 28 28 DD FB 4C F4 

93B8- C9 87 F8 93 4C 3C 94 A5 9208- 91 C9 9B DO 69 EG @8 D 

93C8- 25 C9 17 D8 89 À5 24 C9 9218- 85 A9 89 85 8é 68 C9 AC 

93C8- 27 DO 83 4C A1 92 À5 25 9218- D8 85 A9 AE 4C 63 92 C9 

93D0- 8D 18 89 A5 24 8D 19 88 9228- AE F8 48 CS 88 DOG 84 E8 

93D8- C9 27 D6 99 Eé 25 A9 08 9228- 08 F8 86 CA Cé 24 4C F4 

93E8- 85 24 4C E7 93 Eé 24 À5 9238- 91 C9 95 D8 OC AS 25 28 

93E8- 25 A4 24 26 Ci FB Bi 28 9238- C1 FB A4 24 Bi 28 4C 43 

93F0- 85 86 C8 68 D8 16 Cé 25 9249- 92 C9 A8 98 ÀF C9 DB BA 

93F8- À5 25 28 Ci FEB A8 27 AS 9248- AB A4 88 C8 81 Fa @C C9 

9408- 86 91 28 Eé 25 A9 08 85 9256- AF B8 84 C9 AD DB 9D C9 

9488- 24 4C ié 94 A5 25 28 Ci 9258- BA B0 99 E8 90 D8 @4 C9 

9418- FB 88 À5 86 9i 28 À5 25 9268- A2 F& 91 28 ED FD 9D ii 

9418- C9 17 F8 85 À5 24 4C D8 9268- 83 E8 4C F4 91 Sé 09 68 
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Clefs pour l'Apple Il 

par Nicole Bréaud-Pouliquen 

Ce livre de référence est destiné à se 
trouver en permanence à côté de votre 
Apple II. Son but est de vous faire accé- 
der rapidement à l'information dont vous 
avez besoin : syntaxes des commandes, 
codes machine, adresses utiles. [| com- 
prend également un recueil de 25 ‘trucs 
utiles, les ‘Comment. ?" 

Format : 14,5 X 21 


144 pages 
92,00 FF / 710,00 FB 


a Editions dy sa 


La comptabilité sur Apple II 
par Gérard et Serge Lilio 
Format : 21 x 28,5 


Lisp sur Apple Il 


La pratique de l'Apple I 
par Nicole Bréaud-Pouliquen 


Tome 1 


Et 11 livres 





de référence 
pour votre Apple... 


La découverte de l'Applesoft 
Tome 1 - par Dominique Schraen 
et Frédéric Levy 

Série verte - Format : 14 x 21 
PART CE 

72,00 FF/ 555,00 FB 


La découverte de l'Applesoft 
Tome 2 - par Frédéric Levy 
Série verte - Format : 14,5 x 21 
LP ETS 

72,00 FF/ 555,00 FB 


P.S.I. DIFFUSION 

41-51, rue Jacquard 

BP 86 

77402 Lagny-s/Marne Cedex 
FRANCE 

Téléphone (6) 007.59.31 
P.S.I. BENELUX 

5, avenue de la Ferme Rose 
1180 Bruxelles 

BELGIQUE 

Téléphone (2) 345.08.50 


par Nicole Bréaud-Pouliquen 
Série bleue - Format : 14,5 X 21 
PAR ETTTS 

72,00 FF/ 555,00 FB 

La pratique de l'Apple I} 

Tome 2 

par Nicole Bréaud-Pouliquen 
Série rouge - Format : 14,5 x 21 
LE TES 

72,00 FF/ 555,00 FB 

La pratique de l'Apple Il 

Tome 3 


par Nicole Bréaud-Pouliquen 
Série noire - Format : 14,5 x 21 
176 pages 

CA A ZA CEA 0108 à 2) 


Envoyer ce bon 
accompagné 

de votre règlement à 
P.S.I. DIFFUSION 

ou, pour la Belgique et 
le Luxembourg, à 


Série bleue - Format ; 17 x 25 
PA ETES 

72,00 FF/ 555,00 FB 
Visicalc sur Apple 

par Hervé Thiriez 

TA TL CEE RE 
LA ETES 

82,00 FF/ 635,00 FB 
Mathématiques et statistiques 
par Hervé Haut 

Série rouge - Format : 17 x 25 
PAPA ETES 

92,00 FF / 710,00 FB 


LRET TE 
102,00 FF / 785,00 FB 
32 Basic Programs for Apple |} 


computer 
Format 13,5 X 21 


280 pages 

150,00 FF /1155,00 FB 
Recueil Pom's n° 1 

PUR ET TE 

120,00 FF / 925,00 FB 








__ DESIGNATION 


























P.S.I. BENELUX | 
par avion ajouter 8 FF (75 FB) par livre. 
NOM En ms. ss PRENOM £ : 
rue N° 
Ville __ 


Code post. LL L 1 1) 








FID, MUFFIN et DEMUFFIN 


Hervé Thiriez 


Les programmes FID et MUFFIN se 
trouvent sur la disquette MASTER 
du DOS 3.3. Beaucoup de lecteurs 
nous ont posé des questions à leur 
sujet et ne semblent donc pas bien 
maîtriser leur utilisation. Nous allons 
par conséquent apporter quelques 
éclaircissements à cet égard. Nous 
signalons à tout hasard que la bro- 
chure du DOS en français explique 
l'utilisation de ces deux program- 
mes ; le lecteur pourra aussi sy 
reporter. 


Les fonctions du programme FID 

sont multiples ; il vous permet de : 

+ copier des fichiers (1 ou 2 lecteurs) 
de toute nature, même binaire ou 
texte 

e demander le catalogue 

e obtenir le nombre de secteurs 
libres 

e verrouiller (LOCK) ou déverrouil- 
ler tout fichier 

e effacer (DELETE) tout fichier 


Le programme MUFFIN, quand à 
lui, permet de transformer des 
fichiers du DOS 3.2 vers le DOS 
3.3, y compris pour les fichiers Visi- 
calc. 


Ces deux programmes sont agréa- 
bles sur le plan ergonomique. Ils 
savent, grâce à l’utilisation de 
valeurs par défaut, vous éviter des 
répétitions inutiles. Par exemple, 
lorsqu'on demande une seconde fois 
d'affilée la copie de fichiers, le pro- 
gramme ne demande plus la spécifi- 
cation des numéros de slot et drive. 


Si l'on possède un seul lecteur, le 
transfert se fait du slot 6, drive 1 
vers lui-même ; FID et MUFFIN se 
chargent de vous indiquer quand il 
faut mettre la disquette initiale ou la 
disquette finale dans le lecteur. 


Utilisation 
du signe « = » 


Pour les deux programmes, la 
même technique d'identification 
abrégée des fichiers est possible. 
Quand le nom du fichier à copier ou 
à adapter est demandé, l'utilisateur 
peut répondre par le signe « = ». 

Ce signe signifie «tous les 
fichiers » ; le programme demande 
alors « Do you want prompting ? », 
c'est-à-dire « Voulez-vous une 
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demande de confirmation à chaque 
fichier ? ». 


Si vous répondez par l’affirmative, le 
programme vous demande à cha- 
que fichier s’il est concerné ou non 
par l'opération. 

Si vous répondez de façon négative, 
tous les fichiers de la disquette sont 
concernés. 


Le signe « = » peut aussi être utilisé 
dans le nom. Ceci permet par exem- 
ple de sélectionner seulement les 
fichiers de texte en Applewriter avec 
la réponse « TEXT = ». Le reste se 
passe comme dans le cas où on a 
répondu par « = ». 

Ainsi, en spécifiant un nom tel que 
« =AL=X= », l'utilisateur sélec- 
tionne tous les fichiers comportant 





dans leur nom « AL » puis « X » 
dans cet ordre. 


Retour au menu 
principal 


Lorsque l’on désire revenir au menu 
principal, il suffit d'entrer la réponse 
« Q » (pour QUIT). C'est particuliè- 
rement utile pour copier ou transfor- 
mer un fichier dont on ne se rappelle 
plus bien le nom. 


On utilise alors l'option « = » et le 
« prompting» pour identifier le 
fichier ; une fois la copie (FID) ou la 
transformation (MUFFIN) assurée, il 
est superflu de répondre « Y » ou 
«N>» à la proposition de chaque 
fichier ultérieur. Il suffit de répondre 
« Q » au lieu de « Y » ou « N ». 


Rappel du programme 


Les deux programmes résident en 
mémoire jusqu’au moment où un 
RESET a eu lieu, à moins que des 
programmes utilisés avant celui-ci 
n'aient occupé les mêmes emplace- 


ments mémoire. On peut par consé- 
quent rappeler les programmes, s'ils 
n'ont pas été écrasés, par un simple 
CALL. 

CALL 2051 réactive FID ou MUF- 
FIN ; le dernier chargé en mémoire, 
car les deux utilisent la même zone 
et ne peuvent par. conséquent 
coexister. 


Création de DEMUFFIN 


Ceux qui ne possèdent pas le pro- 
gramme SUPER COPY, qui permet 
de transférer des fichiers dans les 
deux sens entre le DOS 3.2 et le 
3.3, peuvent transformer leur MUF- 
FIN en DEMUPFFIN afin de pouvoir 
adapter leurs fichiers en DOS 3.2. Il 


transformés dans la nature. 


La procédure la plus simple est celle 
proposée par Rob Moore dans la let- 
tre du SNAC (Southern New 
Hampshire Apple Core) et publiée 
par CALL A.P.P.L.E. en février 
le; ME 


1. BLOAD MUFFIN 


2. CALL -151 
15AF : B3 
15B6 : B2 
15F7 : C4 C5 


20AA : A9 1E 8D B9 B7 20 
20B0 : FD AA 48 A9 BD 8D 
20B6 : B9 B7 68 60 


1155 : 00 1E 
115B : D9 03 
1197 : AA 20 


Cette procédure crée un programme 
DEMUFFIN DOS 3.3, c'est-à-dire 
qu'il permet, quand on est en 
DOS 3.3, de transporter un fichier 
sur une disquette en DOS 3.2. 

Il ne reste plus qu’à revenir en 
Applesoft et à faire: BSAVE 
DEMUFFIN 3.3, A$803, L$1900. 


D 
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En 


Le cours de BASIC 
Applesoft d'André Finot 


Jean-Jacques Crépy 


Ayant récemment acquis un Apple 
dans le but de permettre à mes 
enfants de s'initier à l'informatique, 
je me suis renseigné pour savoir 
quelles étaient les possibilités 
d'apprendre le BASIC à domicile. 
J'ai fait cette expérience avec le 
« Cours de BASIC Applesoft » 
d'André Finot. 


Ce cours se présente sous la forme 
de trois disquettes accompagnées de 
deux feuilles de commentaires sur le 
cours, ses objectifs et son mode 
d'utilisation. Il ne reste plus qu'à 
mettre la première disquette dans le 
lecteur et à lire les écrans successifs, 
en répondant aux questions éven- 
tuelles. 


Mes enfants et moi-même avons tra- 
vaillé avec ce cours de BASIC. 
Seule l'augmentation de mes activi- 
tés professionnelles m'a empêché de 
dépasser la leçon 8 (sur les 26 que 
compte ce cours en trois disquettes). 
Voici donc mes premières impres- 
sions, complétées par celles de mes 
fils qui ont été jusqu'au bout du 
cours. 


Ma première impression est favora- 
ble : la méthode proposée est simple 
et permet à quelqu'un n'ayant 
aucune notion d'informatique de 
comprendre les premiers rudiments 
de ce langage. 


Ma seconde impression générale est 
un peu moins bonne, et concerne 
principalement l'impossibilité d’effec- 
tuer des retours en arrière. Il devrait 
être possible de bloquer le déroule- 


ment du programme d’une leçon, 
pour mieux en comprendre telle ou 


telle partie. 


Je regrette personnellement de ne 
pouvoir me référer à des explications 
antérieures pour mieux comprendre 
le programme étudié. Ceci est parti- 
culièrement valable lorsqu'il est fait 
état de courbes et de dessins. 

Je pense que, si cette possibilité était 
offerte, le cours serait très facilement 
assimilé, en particulier dans ce cas 
précis. 

En ce qui concerne les révisions, 
l'étudiant a la possibilité de soumet- 
tre trois réponses. Si, au terme de la 


troisième, il n’a pas réussi, la bonne 
réponse lui est donnée. 


Personnellement, j'aimerais que la 
réponse soit, dans certains cas, 
mieux explicitée, et qu'il soit éven- 
tuellement possible de connaître 
l'erreur que l’on a commise. En 
effet, puisqu’un retour en arrière est 
impossible, on ne peut comparer la 
mauvaise réponse avec la bonne. Il 
est possible de tourner cette limita- 
tion en inscrivant ses réponses au fur 
et à mesure sur un morceau de 
papier, mais cela me paraît peu 
« informatique ». 


En conclusion, je peux dire que je 
suis très content de ce cours, et qu'il 
en est de même pour mes enfants, 
dont l'opinion synthétisée suit. 


Jean-Jacques Crépy 


Points positifs 

eles instructions sont clairement 
expliquées 

e le langage est simple et accessible 
à tous 

° n'importe qui, même très jeune, 
peut suivre ce cours 

e le révisions sont bien faites 


Points négatifs 

° on n'avance pas très vite 

e trop grande « sophistication » de 
la présentation, qui ralentit le pro- 
cessus 

e on est esclave du programme : il 
faut suivre une leçon dans sa tota- 
lité avant de revenir en arrière 

e le programme s'adresse à nous 
comme si l’on avait 8 ans. 


Conclusion 
Ce programme devrait être enseigné 


en 6ème ou en 5ème. L'élève peut 
le suivre seul, le professeur circulant 
entre les élèves. C’est une initiation 
parfaite pour un débutant. Il aurait 
fallu que le programme comporte un 
tableau récapitulatif des mots réser- 
vés du BASIC que l’on puisse sortir 
sur imprimante. 


David, 18 ans 


Points positifs 

e utilisation aisée 

e texte clair, agréable et précis 
° présentation agréable 
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e nombreuses questions, posées 
3 fois (en cas d’erreur) 

e précision des questions 

e temps de réflexion pour les répon- 
ses. 

Points négatifs 

e impossibilité d'interrompre le pro- 
gramme pour faire un retour en 
arrière 

e nombreuses questions trop faciles, 
qui se répètent 

e pas d'explication (avec référence 
au cours) en cas d'erreur 

Suggestions 

e réaliser un fichier des termes, de 
leur signification et de leur mode 
d'emploi 

e fournir un sommaire plus détaillé. 


Philippe, 16 ans 


Remarques d'André Finot 


s 


Je tiens à vous remercier de votre 
analyse de mon cours de BASIC. La 
prochaine version, déjà bien avan- 
cée, aura les possibilités suivantes : 


e arrêts et reprises possibles du 
cours par page ou demi-page 
d'écran (existe déjà) ; 

e pour un positionnement rapide 
dans le cours : 

— retour en arrière possibles ; 
— déroulement en avant à grande 
vitesse ; 

e fractionnement des leçons en par- 
ties avec indication sur l’écran de 
l'entrée et de la sortie de telle par- 
tie ou de telle leçon ; 


e la plupart des programmes, sinon 
tous, pourront être listés sur impri- 
mante. 

D'autre part, je vais tenir compte des 

points suivants que vous signalez : 

e affichage des réponses aux ques-: 
tions ; 
e tableau récapitulatif des mots 

réservés ; 

e sommaire plus détaillé ; 

e fichier des termes, de leur signifi- 
cation et de leur mode d'emploi. 
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Etant un utilisateur quasi quotidien 
de Visicalc, la disponibilité de Multi- 
plan sur Apple Il Plus m'a tout de 
suite excité. Il fallait que je puisse 
mettre la main sur ce programme 
afin de l’évaluer. C’est maintenant 
chose faite, et je dois reconnaître 
que je ne regrette pas l'expérience ! 


Initialement disponible seulement 
sur CP/M, Multiplan fonctionne 
maintenant sur Apple Il Plus 64 K et 
Apple Ile. La version française du 
programme doit sortir sur le marché 
en mars/avril 1983. 


Le programme fonctionne en 
40 colonnes, mais il est conçu initia- 
lement pour 80 colonnes. La com- 
patibilité avec les cartes suivantes est 
prévue : Videx Videotherm, 
M&R Sup’RTherm, ALS Smar- 
term, Vista Vision-80 et Wesper 
Wizard-80. Ceci dit, ce banc d’essai 
a été réalisé en 40 colonnes sans dif- 
ficulté. 


Présentation générale 


Produit par la célèbre compagnie 
Microsoft, à laquelle nous devons les 
meilleurs BASICs sur micro- 
ordinateur et d’autres réalisations de 
tous genres (Olympic Decathlon, 
pour n’en citer qu’une), Multiplan se 
propose de remplacer Visicalc. Dans 
ce but, il vise à assurer toutes les 
fonctions de ce best-seller, et à en 
ajouter quelques-unes de son cru. 


Le lancement est quelque peu diffé- 
rent : le programme est fourni avec 
une disquette de BOOT protégée et 
une disquette programme copiable à 
volonté. 


Nous retrouvons au lancement du 

programme un tableau de 63 lignes 

et 255 colonnes, à deux différences 
près : 

e l'identification des lignes et des 
colonnes est entièrement numéri- 
que (je ne vois pas ce que cela 
apporte) ; 

e les commandes apparaissent tou- 
tes en bas de l’écran, et peuvent 
être sélectionnées soit par leur pre- 
mière lettre, soit par validation 
d’un curseur des commandes que 
l’on déplace aisément. 


Il existe aussi une différence non visi- 
ble au premier coup d'œil, mais 
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Multiplan à l’essai 


Hervé Thiriez 


importante pour le débutant : l’exis- 
tence d’une fonction HELP permet- 
tant à l’utilisateur de se renseigner à 
tout moment sur le mode d'emploi 
de la commande en cours. Bien 
entendu, il faut pour cela que la dis- 
quette programme soit dans le 
drive 1; ce n'est pas vraiment 
gênant car il y reste assez de place 
pour mémoriser un très grand 
tableau. 


Comme son grand frère Visicalc, 
Muiltiplan laisse l'utilisateur définir le 
contenu de chaque case, sous forme 
de libellé, de valeur numérique ou 
de formule. Comme lui, il recalcule 
tout le tableau automatiquement ou 
à la demande. On retrouve dans 
Multiplan toutes les possibilités de 
Visicalc ; il y a même (symbole de 
l'esprit pratique des américains) un 
programme de conversion des 
fichiers Visicalc… 


Wl 


r LLC ITETIONTTT TON 
] 


Un m Fa 
Eli! 


Les nouveautés 


Les différences sont cependant 

nombreuses, Multiplan répondant 

préventivement aux critiques qui 

avaient été formulées antérieure- 

ment à l'égard de Visicalc. Les amé- 

liorations sont multiples : 

e la largeur des colonnes est variable 

e les formules peuvent être globale- 
ment verrouillées 

e toute case peut être verrouillée 

e il est possible de baptiser une case, 
ou une série de cases : on peut 
utiliser les noms dans des formu- 
les, ce qui est fort agréable 

e il y a au maximum huit fenêtres 
(c'est même trop) 

e de nombreux formats sont dispo- 
nibles 

e il existe une commande de tri 


(SORT) 


e les modes d'impression sont beau- 
coup plus riches 

e le recalcul automatique s'effectue 
de façon réellement automatique 
(pas besoin d'appuyer n fois sur la 
touche « ! »). 


La fonction de reproduction est 
assez différente : il n’est plus ques- 
tion de définir, pour les coordonnées 
des formules, si elles doivent être 
prises en absolu ou en relatif. C’est 
au moment de la définition d’une 
formule que l’on indique la nature 
des coordonnées. 


Ainsi, la formule « +R2C3 
+ (1.5xRC[-— 2]) » signifie que l’on 
utilise le contenu de la ligne 2 et 
colonne 3 (en absolu), et celui de la 
case placée deux colonnes à gauche 
dans la même ligne (en relatif). Si 
cette formule est reproduite, elle 
sera reproduite telle quelle, la nota- 
tion rendant immédiatement relatif 
ce qui doit l’être. 
Enfin, et là se trouve la justification 
du nom de Multiplan, on peut tra- 
vailler sur plusieurs tableaux et les 
lier les uns aux autres, ce qui évite 
de devoir transférer des informations 
avec le format DIF. Ainsi, par exem- 
ple : 
e le tableau principal peut être la 
consolidation de trois activités ; 
e chaque activité possède son 
tableau principal propre ; 
e des tableaux annexes effectuent 
les calculs secondaires. 


Il ne reste plus alors qu’à définir les 
liens entre les tableaux. 


Aspects ergonomiques 


Pour un habitué de Visicalc, le pre- 
mier contact avec Multiplan est frus- 
trant. Pour commencer, le scrolling 
(déplacement «rapide» dans le 
tableau) est plus lent ; surtout, il est 
moins pratique : il faut utiliser les 
touches CTRL-E, CTRL-S, CFRL-X 
et CTRL-D (je ne suis pas gaucher, 
et préfère utiliser un doigt plutôt que 
deux). 

Ce problème n'apparaît pas sur 
l'Apple Ile, qui dispose de quatre 
touches de déplacement. 


Heureusement, on peut aussi se 
déplacer écran par écran, ou directe- 
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ment en haut à gauche ou en bas à 
droite de la partie du tableau utilisée. 
Enfin, on peut donner un nom (bap- 
tiser) une case et s'y positionner 
directement grâce à ce nom. 


Dans un souci de protection du con- 
tenu des cases, on ne peut rentrer 
une valeur ou une formule dans une 
case sans préciser d’abord « À » 
(alpha), « V » (value) ou utiliser un 
symbole mathématique (value). 
L'expert ès Visicalc court au-devant 
de surprises désagréables en entrant 
trop vite des libellés : « ALLOCA- 
TIONS » est compris comme le texte 
(« A» pour alpha) « LLOCA- 
TIONS ». 


Pour la définition de cases en série, 
le programme maintient par défaut 
l'option Alpha/Value si l’on sort 
d’une case en mode déplacement et 
non par RETURN. 


Enfin, et c'est là le plus gros pro- 
blème pour le possesseur d'Apple II 
Plus, il y a deux fois moins de place 
disponible avec Multiplan qu'avec 
son grand frère. J'ai converti deux 
tableaux à partir de Visicalc ; voici 
les résultats : 


Tableau 1| 27 % 54 % 
Tableau 2| 48 % 98 % 


En outre, le second tableau se recal- 
culait en 5 secondes avec Visicalc, et 
20 secondes avec Multiplan (4 fois 
plus lent). 













Ceci nous montre qu'avec la carte 
langage et Multiplan, la capacité est 
similaire à celle de Visicalc sans carte 
langage. Bien entendu, il me reste 


avec Multiplan la possibilité de 
déporter une partie du tableau dans 
des tableaux annexes que je relierai 
ensuite au tableau principal : dans 
ce cas, seules les informations des 
tableaux annexes devant être trans- 
férées à d'autres tableaux actifs 
« occupent» de la place en 
mémoire. 











PRÉSENT DE 
L'AVENIR où 
JOURNAL... 


Trucs et astuces 


Le travail au noir des blancs. 


Les blancs entrés au clavier, con- 
trairement à ce que disent les 
manuels, ont une importance. 
Essayez d'entrer, puis de lister le 
programme suivant : 


10 DRAW 1 AT N,M 
20 DRAW 2 ATN,M 
30 HPLOT B,A TO C,D 
40 HPLOT B,ATO C,D 


Vous pourrez constater que 
« ATO » et « ATN » sont tokéni- 
zés avec les mots réservés « TO » 
et « ATN », alors que « AT O » et 
« AT N » le sont avec « AT ». 


Les fanatiques de l’assembleur 
pourront trouver la raison de tout 
cela en épluchant la routine 
Applesoft débutant en $D56D. 


Dernière critique : il est obligatoire 
d’avoir l'imprimante en slot 1. Je 
trouve ce type de contrainte regret- 
table : que faire si, pour utiliser un 
progiciel de création graphique, 
mon imprimante thermique doit 
aussi se trouver sur ce slot ? Je ne 
peux changer mes cartes sans arrêt, 
les Apples ne sont pas prévus pour 
cela, on s’en aperçoit vite. 


Conclusion 


La phase d'adaptation à partir de 
Visicalc une fois passée, Multiplan 
est un excellent programme, sous 
réserve que l’on ne soit pas bloqué 
par la mémoire. Je n’hésiterai pas à 
l'acheter avec un Apple Ile ou avec 
un Apple II Plus équipé d’une exten- 
sion mémoire 32 K ou plus et d’un 
programme de boot Multiplan 
sachant exploiter la mémoire supplé- 
mentaire. 

Si je ne dispose que d’un Apple 
64K, jutiliserai Multiplan si la 
nature des tableaux que je suis 
amené à manier s’accommode du 
découpage en plusieurs tableaux. 
Possédant déjà Visicalc, j'estime que 
Multiplan m'apporte suffisamment 
pour l’acquérir quand même. Dans 
ce cas, selon l'application, je sélec- 
tionne le programme le mieux 
adapté, en n’oubliant pas que la pos- 
sibilité de conversion n'existe 
aujourd’hui que dans un sens... 


Nous venons, dans une société, de 
développer sur Sirius un plan straté- 
gique à huit ans avec Multiplan. Ce 
plan concernait la société française 
et sa filiale américaine, plusieurs acti- 
vités et des analyses détaillées de la 
production, des ressources humai- 
nes, … Au total, plus de 20 tableaux 
reliés les uns aux autres. Impression- 
nant ! 
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e Logiciels standards et sur mesure. 


e Interfaces, Périphériques. 


e Contrôle de processus. 


e Alarme, Sécurité. 


e Commande à distance. 
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Effacement de directory en Pascal 


Après avoir passé trois numéros de 
Pom's à faire l'analyse du directory 
Pascal avec Michel Crimont, nous 
allons voir maintenant comment 
effacer de la mémoire de l'Apple le 
directory de la dernière disquette 
lue... À quoi cela sert-il ? 


Chaque fois qu'une opération de 
lecture ou d'écriture est effectuée sur 
une disquette, son directory est 
placé en haut de la pile réservé aux 
variables dynamiques (heap). Il reste 
en fantôme à cet emplacement, 
c’est-à-dire invisible (les pointeurs de 
pile accessibles aux utilisateurs n’en 
tiennent pas compte) tant qu’il n'y a 
pas utilisation de cette pile (et sans 
. doute aussi tant qu’il n’y à pas de 
collision avec le sommet du stack). 


Lors des accès ultérieurs aux dis- 
quettes, ce directory est utilisé. 


Si un fichier est appelé par un nom 
de volume (nom de disquette), et 
que ce nom correspond à celui ainsi 
placé en mémoire, l’Operating 
System fait l'hypothèse que la dis- 
quette n’a pas été changée, et donc 
que le directory en mémoire est le 
bon. 


Si un fichier est appelé par un 
numéro d'unité (#4 pour le 
drive 1), il lit le nom de volume et 
compare celui-ci à celui du directory 
en mémoire. S'il y a identité de 
nom, il suppose là aussi que 
l’ensemble du directory est le même. 


On comprendra aisément les catas- 
trophes qui peuvent se produire si 
deux disquettes différentes portant le 
même nom de volume sont utilisées 
successivement. 


Bien entendu, cela est clairement 
expliqué dans les manuels Apple Il, 
qui soulignent la nécessité d'éviter 
l'utilisation de disquettes portant le 
même nom de volume. Malheureu- 
sement, en particulier pour les pro- 
grammes de gestion, la prudence 
requiert le recours à des disquettes 
de sauvegarde qui, étant copiées 


globalement, portent le même nom ! 


creni CCUT 
er ANT EEE 
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c'esT 
SIMPLE & 1L 


SUR LE PUSDE 


Le programme introduit ici montre 
qu'il suffit d’une seule instruction fai- 
sant référence au heap pour que 
l'Apple Il n'utilise plus le directory en 
mémoire. 


Mise en œuvre 


Tout d’abord, exécuter ce pro- 
gramme. On peut vérifier que, si l’on 
essaie d'accéder deux fois de suite à 
un fichier sur la même disquette, 
l'Apple II ne lit qu'une fois le direc- 
tory (mise en rotation du drive) tan- 
dis que, si la procédure d’effacement 
a été exécutée, l'Apple II doit aller 
relire le directory. 


Remarques 


Pour que la démonstration fonc- 
tionne correctement, les disquettes 
APPLE1 et APPLE2 doivent être 
réellement présentes ; autrement, il 
ne peut y avoir de lecture du direc- 
tory. 


Dans le cas de l'Apple Ill, il semble 
qu'il y ait toujours relecture du direc- 
tory complet d’une disquette avant 
lecture ou écriture, et je n'ai pas 
réussi à provoquer de destruction de 
disquette (NDLR : à quoi mène 
l'informatique !). 


OGUFFIT DE TIRER 


D 


ROC A ï 


Par contre, j'ai déjà eu des problè- 
mes en lecture avec des disquettes 
formatées sur Apple III. Je n'ai pas 
eu le temps d’en approfondir les cir- 
constances, mais ils ont disparu une 
fois le procédé décrit ci-dessus appli- 
qué. 

Il s'agissait d’une non-relecture du 
directory en lecture avec pourtant 
des disquettes portant des noms dif- 
férents, ce qui semble être un bug 
réel dans l'Opérating System de 
l'Apple III. 


Application pratique 


Ce programme de test doit être 
placé sur une disquette dite dis- 
quette PROGRAMME durant son 
exécution et, à la demande, rempla- 
cée par une disquette vierge de 
même nom. Si vous ne demandez 
pas de lecture du directory de la 
nouvelle disquette, vous retrouverez 
en plus du fichier TEST tout le direc- 
tory de la première disquette PRO- 
GRAMME sur la seconde. 


Attention : la seconde disquette 
PROGRAMME sera détruite et la 
vraie risque de l’être en cas d'erreur 
de manipulation. Il est donc con- 
seillé de protéger contre l'écriture la 
vraie disquette PROGRAMME. 
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PRÜGRÊÉM CLEARDIRECTORY : 


VAR CL : CHAR; 


CX$I-X) 


PROCEDURE TESTERIÏI;VAR F : 
BEGIN RESET(F, ’APPLE1:TEST”) ; CLOSE(F) ; 


END ; 


PROCEDURE TESTER2;VAR F : 


END ; 


PROCEDURE EFFACER;VAR F8 
BEGIN MARK(P8) ; 
END ; 


BEGIN REPEAT WRITE(CCHR 12)) ; 
WRITECCHR(28)) ; 


FILE OF INTEGER; 


{ le fichier TEST ne doit } 
{ pas exister car autrement} 
{ il y a toujours relecture} 
{ du directory } 


FILE OF INTEGER; 
BEGIN RESETK{F, ’APPLEZ2:TEST‘) ; CLOSE(F) ; 


SINTEGER; 


{ APPLE II  ; 
{ APPLE /// 3 


WRITELN( ‘VOULEZ-VOUS ? ‘): 
WRITELN( ‘1 TESTER LA PRESENCE D’’UN FICHIER DRIVE 1°); 
> ; 


WRITELN(’2 TESTER LA PRESENCE 


D'UN FICHIER DRIVE 2° 


WRITELN(’3 EFFACER LE DIRECTORY EN MEMOIRE”) ; 
WRITELN{’esc FIN’); 
READ(CL) ;WRITELN ; 

CASE CL OF ‘1/:TESTER1; 


END ; 
UNTIL CL=CHR(27) ; 
END. 


Création de 


Yvan Koenig 


Le petit programme en BASIC ci- 
contre a été inspiré par le pro- 
gramme de création de fichier EXEC 
présenté par Bruno Rives (Pom's 3, 
pages 55-56 ; Recueil, pages 142- 
143). 

L'inconvénient du programme, tel 
qu'il était présenté, résidait dans son 
incapacité à accepter des instructions 
comportant des séparateurs, par 
exemple POKE A,B. 


Le programme ci-contre tourne la 
difficulté en réalisant un « INPUT 
ANYTHING », c’est-à-dire qu'il 
autorise la rentrée de n'importe 
quelle chaîne. On pourra noter l’ins- 
truction 230 dans laquelle l’utilisa- 
tion du « ON... GOTO » fournit 
l'équivalent d'un «IF... THEN... 
ELSE*s: 


72’ :TESTER2; 
‘3° : EFFACER; 


Suite et fin page 9 


fichiers EXEC 


1 D$ = CHR$ (4) :R$ = CHR$S (13) :6$ = C 
HR$S (72:F6$ = CHR$ (8): TEXT : H 
OME : PRINT "DONNEZ LE NOM DU FIC 
HIER EXEC À CREER": INPUT N$: PRI 
NT D$"OPEN"N$: PRINT : PRINT “DON 
NEZ LES COMMANDES À EXECUTER": PR 
INT “<RETURN> POUR TERMINER"* 

88 PRINT :C$ = *"* 

98 GET X$: IF X$ = R$ THEN ON LEN (C$ 
>) > @ GOTO 198: GOTO 288 

92 IF X$ = F6G$ AND LEN (C$) > @ THEN C 
$ = MIDS (C$,1, LEN (CS) - D: P 
RINT X$® “X$;: GOTO 98 

95 IF ASC (X$) < 32 THEN PRINT 6$;: G 
OTO 98 

198 C$ = C$ + X$: PRINT X$;: GOTO 98 

198 PRINT : PRINT D$"WRITE"NS: PRINT C$ 
: PRINT D$: GOTO 88 

288 PRINT : PRINT D$"CLOSE"NS$: PRINT : 
PRINT "VOULEZ-VOUS TESTER CE FICH 
IER EXEC (O/N)"; 

238 GET A$: ON ÀA$ < "N" OR À$ > “O" GOT 
0 238: PRINT : ON À$ = °"N" GOTO 2 
68: PRINT : PRINT D$"EXEC"N$ 

26A END 

Pom's n° 7 


Suite à l’article d'Hervé Thiriez dans 
le Pom's 1, dans lequel il présente 
les possibilités du PLE (Program 
Line Editor) et du CRAE (Co- 
Resident Applesoft Editor), d’aucuns 
ont pu regretter que l’on doive char- 
ger manuellement CRAE en 
mémoire après avoir « booté » PLE, 
ce dernier pouvant être chargé auto- 
matiquement à partir du HELLO. 


de ne reviendrai pas sur l'intérêt de 
ces deux programmes ni sur leurs 
propres commandes, ces dernières 
étant très largement expliquées dans 
les articles précités, mais plutôt sur le 
moyen de les charger en mémoire 
sans aucune intervention naturelle, 
si ce n’est la mise sous tension de 
votre Apple préféré ! 

Je me suis donc confectionné une 
disquette qui « boote » directement 
ces deux utilitaires d’aide à la pro- 
grammation. Etant enseignant, j'ai 
pu constater que les stagiaires 
n’acceptent plus de travailler autre- 
ment que sous ce nouvel éditeur 
PLE + CRAE, surtout s'ils ont peiné 
quelque peu sur les corrections par 


ESCIE, dis: 


L’obstacle majeur pour la réalisation 
de cette association est de supprimer 
l'effet de l'instruction PRINT 
CHRS$(4)“FP” contenue dans le pro- 
gramme PLE. En effet, il n'est pas 
question de traiter une quelconque 
instruction de chargement de CRAE 
après cela. La méthode que jai 
employée nécessite plusieurs étapes, 
que je détaille ci-dessous. 


Première étape 
Initialiser une disquette avec le pro- 
gramme HELLO PLE + CRAE sui- 


vant : 


1 REM 

19 TEXT : HOME : 

28 VTAB S: 
R° 


—- PROGRAMME HELLO PLE+CRAE -- 
INVERSE 
HTAB 13: PRINT 


36 VTAB 8: HTAB 14: FRINT 
PRINT CHR$ (4) "RUN BOOT PLE+CRÉE" : 
NORMAL 


1 REM 
18 D& = 


28 CALL - 22572: REM 
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—- PROGRAMME BOOT PLE+CRAE -- 

CHR$ (4): PRINT D$;"BRUN PLE" : 68 
REM LANCEMENT DE PLE 
INITIALISATION 78 
ET CONSTRUCTION DES BUFFERS DU DO 


“SUPER EDITEU 


"PLE ET CRAE* 








Boot PLE + CRAE 


Deuxième étape 

Charger PLE avec LOAD PLE.FP. 
Ce programme comporte une partie 
en BASIC, suivie d’une partie en 
assembleur. 


La fin est identifiée par le pointeur 
de fin de Program Text PRGEND 
situé en $AF-$BO en page Zéro (on 
trouve normalement $1001). 
On peut trouver l'adresse de débui 
en passant en mode moniteur et en 
examinant la mémoire à partir de 
$ 800 jusqu’au début des instruc- 
tions en assembleur : 

NOP 

NOP 

NOP 

NOP 

TXA 

PHA 

JSR $FF5B 


Cela se situe normalement, si l’on 
n’a pas modifié les lignes en BASIC 
du PLE, à l'adresse $8E0. 


Troisième étape 

Calculer la longueur du programme 
en assembleur en effectuant la sous- 
traction (adresse de fin +1) - 
(adresse de début) = $1001 - $8E0 
= $721. 


Quatrième étape 

Déplacer ce bloc d'instruction en 
assembleur à l'adresse $3000, en 
mode (adresse de destination) < 
(adresse de début). (adr. de fin) M, 
soit ici : 3000 << 8E0.1001M. 


Cinquième étape 
Effectuer la sauvegarde sur la dis- 
quette initialisée du bloc ainsi 


Michel Marquis 


déplacé par la commande : BSAVE 
PLE, A$3000, L$721. 


Sixième étape 
Entrer le programme ci-dessous, et 


l'enregistrer sur la disquette sous le 
nom BOOT PLE + CRAE. 


Septième étape 

Copier sur la même disquette le pro- 
gramme binaire livré avec CRAE 
(sur ma disquette, il s'appelait PLE. 
EDIT.PROD), effectuer la sauve- 


garde de ce programme avec 
BSAVE CRAE,A$7400,L$1C00. 


Nous rappelons que les adresses 
AA60/61 et AA72/73 donnent res- 
pectivement la longueur et l’adresse 
de chargement du dernier pro- 
gramme binaire manipulé. 


NDLR : il est aussi possible de trans- 
férer PLE.EDIT.PROD avec le pro- 
gramme FID fourni sur la disquette 
MASTER, à condition de le rebapti- 
ser CRAE, puisque c'est sous ce 
nom qu'il est appelé par le pro- 
gramme décrit dans la sixième 
étape. 


Huitième étape 

Il ne vous reste plus qu’à « booter » 
pour vous trouver après quelques 
instants de patience en SUPER EDI- 
TEUR. N'oubliez pas d'appuyer sur 
& pour bénéficier des possibilités de 
CRAE. 

Remarque : tout ceci s'applique à la 
version 48K de l'Apple Il, mais 
vous n’aurez aucun mal à l’adapter à 
la capacité mémoire de votre 
Apple. 


S MODIFIES PAR PLE 

POKE 1815,135: POKE 1814,0: POKE 181 
3,76: REM MODIFICATION DU VECTEU 
R & À $8788, ADRESSE DE DEBUT DU 
PLE APRES QU’IL SE SOIT DEPLACE P 
AR LUI-MEME 

PRINT D$;"BLOAD CRRE" : 
NT DE CRAE 

POKE 111,248: POKE 112,115: REM MIS 
E À JOUR DES POINTEURS 

POKE 115,248: POKE 116,115: REM FRE 
TOP ET HIMEM À LA VALEUR $73F8 

NEW : REM NETTOYAGE DE LA PARTIE DE 
LA MEMOIRE NON PROTEGEE 


REM  CHARGEME 
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Un programme de fondu enchaîné 


Denis Sureau 


Le programme suivant permet 
d'effectuer un fondu enchaîné par 
échange très rapide de deux pages 
graphiques haute résolution. Il faut 
tout d’abord charger en mémoire le 
programme par BLOAD HR 
TRANS, et les images souhaitées 
dans les trois pages graphiques 


débutant en $2000, $4000 et 

$6000. 

HR TRANS — Big Mac 
i XXXXXXXEXXXXLXAXXEXEXX 
2 x x 
3 X FONDU ENCHAINE X% 
4 x x 
5 X AVEC 3 PAGES HR x 
6 X x 
7 X — D. SUREAU - x 
8 x x 
F7 XXXXXXEXAXXXXXEXEXXXX 
18 

1i MAXI = $08ac 
12 X UTILISE $6,$57,58,949 
13 

14 ORG +388 
15 

16 LD£É ##08@ 
17 STA $é6 

18 STA +58 

19 

28 

21 TRANS LDY #+ü@ 

22 LDS +7 

23 CLC 

24 ADC #$29 

25 STA MAXI 

26 

27 LOOP LD ($6),Y 

28 PHâ 

29 LDA ($8),Y 

38 STA ($6) ,Y 

31 PLA 

32 STA (+58) ,Y 

33 

34 INY 

35 BNE LOOP 

36 INC $7 

37 INC #9 

38 LDA $7 

39 CMP MAXI 

40 BNE LOOP 

41 

42 RTS 


Il suffit ensuite de faire un 
POKE 7,32*M où M est le numéro 
(1, 2 ou 3) de la première page gra- 
phique désirée. Un POKE 9,32°N 
où N est le numéro de la seconde 
page graphique désirée complète le 
travail. CALL 768 lance l'échange 


programme est proposée sur le 
HELLO de la disquette d'accompa- 
gnement de ce numéro de Pom's. 


Le programme en BASIC ci-dessous 
vous permet de créer un effet de 
fondu enchaîné entre trois images 


des deux pages. 


NDLR 


dont vous définissez les noms dans 
les instructions 100-120. 


: une démonstration de ce 


HR TRANS DEMO 


5 IF PEEK (18) = 1 THEN 18 

7 PRINT CHR$ (4) *BLOAD HR TRANS" 

189 TEXT : HOME 

28 COLOR= 18 

38 HLIN 18,38 AT 28 

48 HLIN 18,38 ÀT 28 

58 VLIN 28,28 AT 18 

68 VULIN 28,28 ÀT 38 

78 VTAB 13: HTAB 15: PRINT 
HR° 

VTAB 28: PRINT " 
GOS...PATIENCE." 

86 D$ = CHR$ (4) + "BLOAD" 

98 IF PEEK (18) = 1 THEN 158 

POKE 18,1 

PRINT D$° Image 

PRINT D$° Image 


"DEMO TRANS 


CHARGEMENT DES LO 


no. 1,48192° 
no. 2,A16384" 


128 PRINT D$"Image no. 3,424576" 
158 POKE - 16384,8: POKE - 16297,8: P 
OKE - 16388,0 
151 POKE - 16368,8 
288 POKE 7,32: POKE 9,64: CALL 768 
258 GOSUB 1998 
368 POKE 7,32: POKE 9,96: CALL 768 
358 GOSUB 1888 
488 POKE 7,32: POKE 9,64: CALL 768 
458 GOSUB 1988 
: SOMM 588 POKE 7,64: POKE 9,96: CALL 768 
È e 558 GOSUB 1888 
; 688 IF PEEK ( - 16384) > 128 THEN 788 
; PAGE 658 GOTO 288 
788 TEXT : END 
1888 FOR 1 = 1 TO 58: NEXT : RETURN 
3 TRANSFERT 
Récapitulation 
JCALL —-151 
X300.326 
4368- A7 08 85 66 85 08 ÀG 88 
8388- AS 87 18 69 20 85 OC B1 
8318- 86 48 B1 08 91 Gé 68 91 
8318- 08 C8 D6 F3 Eé 07 Eé 89 
8328- AS 87 C5 6C DG E9 68 
*3D8G 


È 
I E 
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Le petit jeu en Applesoft que woies 
m'a été inspiré par un de ces nom- 
breux jeux électroniques, Game and 
Watch en tous genres. Ayant vu ce 
jeu, je me suis demandé s'il était dif- 


Les quatre ponts 


Le but du ju est de réussir à empé- 
cher les gens de se noyer. Comme 
vous pouvez le voir, tout le jeu est 
écrit en Applesoft, la seule particula- 
rité résidant dans des octets consti- 


Olivier Herz 


Ceux qui désirent se renseigner sur 
la création de tabes de formes peu- 
vent lire l’article de Dominique 
Compère (Pom's 4 pages 19-28, ou 
Recueil pages 146 et suivantes). 


ficile d'en programmer un: la 


réponse est « non ». 


tuant une table de formes. 


63 = 68) + 98 X (G3 = 1) + 75 *X (CG 
Les quatre ponts 3 = 2) + 77 X (G3 = 3): GOSUB 920 
288 1 = 3 - 1:B = @:C = @:D = 8: GOSUB © 
88: FOR J = 6 TO 19 
ILIST:LES 4 PONTS 218 IF A(J) € > 1 THEN 258 
228 AJ) = G:C(C) = JiC = C + 1: IF J = 
19 TEXT : HOME : VTAB 5: INVERSE PRIN 8 OR J = 18 THEN À = À -— 1: GOTO 
T " OLIVIER HERZ PRESENTE: " 258 
28 PRINT : PRINT : NORMAL PRINT * LE 238 AJ - 1) = 1: IF J= 4ORJ= 7 OR J 
E S GQUATRES PONTS = 14 OR J = 17 THEN D = J - 1: G 
“ OTO 258 
38 = Î1:E = @0:F = 6:61 = 48:62 = 68:63 = 249 B(B) = J - 1:B = B + 1 
6:64 = 8:G = 0:Â = 80:B = 8:C = 8 258 NEXT 
X = GU:Y = G:N = 0:K = 8:D = 8:S = 268 N = INT € SGR (S) / 2 + 1): IF À = 
@:H = 6 N OR RND (1) > .5 THEN 3089 
49 DIM AC19) ,B(9) ,C(9): PRINT : PRINT 278 J = INT (2 X RND C1)) X 18 + 9: IF 
PRINT “UOUS DEVEZ PLAÂACER VOTRE P AJ - 1) = 3 - I OR AJ) = 3 - I 
ONT À L’UN DES QUATRE EMPLACEMENT ÜR ÀA(é) = I OR A(ié6) = I THEN 38 
S POSSIBLES" e 
58 PRINT : PRINT * —> GRACE AUX TOUCHE 288 B(B) = J:B=B + 1:4 = À + 1:ACJ) = 
S A K I 
z M" 308 GOSUR 988: IF C = @ THEN 328 
68 PRINT ‘ —)> OU GRÂCE À VOTRE JOYSTIC 318 HCOLOR= 3: FOR J = 8 TO C - 1:E = 
K"® INT (CCJ) / 180):F = C(J) - 18 X E 
78 PRINT : PRINT “CECI ÀAFIN DE PERMETTR : GOSUB 808: DRAW 2 + E AT X,Y: N 
E AUX BONSHOMMES DE PASSER SANS EXT 
ENCOMBRE..." 320 IF B = @ THEN 348 
88 PRINT : PRINT : PRINT "VERSION CLAVI 238 HCOLOR= 8: FOR J = 68 TO B - 1:E = 
ER. .OÙ JOYSEIEK.. 2 "3 INT (BJ) / 19):F = BJ) - 18 X E 
85 GET A$: IF A$ € D "J" AND A$ € > " : GOSUB 888: HCOLOR= @: DRAW 2 + 
C*" THEN 85 E AT X,Y: NEXT 
98 PRINT A$:J0 = @: IF AS = "J" THEN JO | 348 IF D = @ THEN FOR J = 1 TO 5:E = 
= { PEEK € — 16336) : NEXT : GOTO 288 
95 IF PEEK (768) < > 4 THEN 2888 359 E = INT (D / 18):F = D —- 16 %X E: GO 
188 POKE 232,8: POKE 233,3: SCALE= i: R SUB 888: IF G = D THEN HCOLOR= @ 
OT= @ : DRAWN 2 + E AT X,Y:S = S + ji: UT 
119 HOME : HGR : HCOLOR= 3: HPLOT 8,8: AB 22: HTAB 1: PRINT S;: FOR J = 
CALL 62454 1 TO 18:E = PEEK ( - 16336): NEX 
128 HCOLOR= 1: FOR J = 48 TO 88: HPLOT T : GOTO 208 
8,J TO 279,): NEXT : FOR J = 128 Zéû GOSUB 898:Y = Y + 12 + (E = 1):X = 
TO 168: HPLOT 8,J TO 279,J: NEXT X + 2 - 16 X (E = 12: HCOLOR= 8: 
138 HCOLOR= 3: FOR J = 48 TO 65: GOSUB DRAN 1 AT X,Y: FOR J = 1 TO 188:Q 
135: NEXT : FOR J = 128 TO 145: G =  PEEK € — 16336): NEXT :A(D) = 
OSUB 135: NEXT : HCOLOR= 2: FOR J 8: = À - 1 
= 66 TO 88: GOSUB 135: NEXT : FO 376 K = K + 1: VTAB 22: HTAB 1: PRINT ,, 
R J = 146 TO 168: GOSUB 135: NEXT K;: IF K = 3 THEN 4688 
: GOTO 148 388 HCOLOR= 3: DRAW 1 AT X,Y: FOR J = 1 
135 HPLOT 86,J TO 113,J: HPLOT 168,J TO TO 256 - 150 X JO: GOSUB 968: NE 
195,J: RETURN XT : GOTO 288 
148 REM 488 UTAB 23: HTAB i: PRINT "VOULEZ-VOUS 
168 UTAB 21: HTAB 1: PRINT "SCORE" ,"HI- REJOUER ? "; 
SC" ,"NOYES";: UTAB 22: HTAB 1: PR | 418 POKE - 16368,0: GET A$: PRINT A$: 
INT S,H,K; IF A$ = "N" THEN END 
178 G3 = INT € RND (1) X 42:63 = 65 X « 428 FOR J = 8 TO 19:A(J) = 8: NEXT :1 = 
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63 


1:A = 6:K = 8: IF S > H THEN H = 1858 G = 3:63 = 168:64 = 53: GOTO 1878 
s 1869 G = 16:63 = 168:G4 = 133 
438 S = 9: GOTO 118 1878 IF Gi = G3 AND G2 = G4 THEN RETUR 
888 IF E = 1 THEN 828 N 
818 X = 258 - 28 x F:Y = 46: RETURN 1888 GOTO 998 
828 X = 21 + 28 X F:Y = 125: RETURN 2888 GOTO 2828 
908 IF JO = 1 THEN 1888 2818 HEX$ = HEX$ + “ NDS8236": FOR I = i 
985 IF PEEK « - 16384) < 128 THEN RET TO LEN (HEX$) : POKE 511 + 1, ASC 
URN ( MID$ CHEX$,1,12) + 128: NEXT : 
918 G3 = PEEK (« - 146384) - 128: POKE - POKE 72,8: RETURN 
16368,8 2828 HEX$ = "03080: 04 08 8A 88 26 88 5A 
928 IF G3 = 98 THEN G = 13:62 = 86:64 = 89 8E 08 36 8E 76 76 4D 29 38 3F 
133: GOTO 998 28 8D 2D 38 1F 1F 67 2D 2D 1C 3F 
938 IF G3 = 75 THEN G = 3:63 = 148:6G4 = AC 49 49 38 Fé Fé Fé 86 88 24 2D 
53: GOTO 998 2D 2D 25 24 24 E4 5B 38 38 20 @C 
948 IF G3 = 77 THEN G = 16:63 = 1468:64 8C 8C 25 24 5F 28 2D 38 3F 27 2D 
= 133: GOTO 998 2D 1C": GOSUB 2818: CALL - 144 
958 IF G3 = 65 THEN G = 6:63 = 86:64 = 2838 HEX$ = “0348: 3F 67 2D 4D 89 92 92 
53: GOTO 998 12 17 17 3F 38 38 36 36 36 16 24 
968 RETURN 2D 35 36 36 36 2D 05 09 24 3F 3F 
998 HCOLOR= 3: DRAW 4 AT G1,G2: HCOLOR= 3F 27 24 24 24 4D 28 28 28 1C iC 
8: DRAN 4 AT G63,64:61 = 63:62 = 1C 3F 24 2C 38 3F 28 2D 25 3F 3F 
G4: RETURN 67 2D ES 39 FF DB 92 92 12 AA 15 
1888 G3 = PDL (8): IF G3 > 127 THEN 184 2D 28": GOSUB 2818: CALL -— 144 
8 2848 HEX$S = “8388: 28 36 36 36 36 36 3F 
1818 G4 = PDL (12: IF G4 > 127 THEN 183 3F 36 36 36 3E 3F 88 2C 38 2C 6D 
C] 38 3F 27 2D 2D 2D 2 2D 2D 2D 2D 
1828 G = 6:63 = 86:64 = 53: GOTO 1878 2D 2D 2D 2D 2D 35 3F 3F 4E 2D 3E 
1838 G = 13:63 = 86:64 = 133: GOTO 1978 8E 36 88": GOSUB 2818: CALL - 14 
1848 G4 = PDL (12: IF G4 > 127 THEN 184 4 
8 285@ GOTO 188 





Courrier des lecteurs 


Un lecteur nous ayant envoyé la 
petite annonce suivante «Cause 
double emploi, vends logiciels amé- 
ricains originaux pour Apple Il», 
nous avons répondu comme suit : 


Cher lecteur, 


Il ne nous est malheureusement pas 
possible, bien que les annonces 
soient gratuites dans Pom's, de 
publier celle que vous nous propo- 
sez. 


En effet, des esprits mal intentionnés 
pourraient croire qu'après avoir 
acquis ces logiciels américains, et les 
avoir intelligemment dupliqués, vous 
cherchiez à en amortir le coût. 


Notre politique éditoriale est très 
stricte sur le plan éthique ; nous pré- 
férons, dans le doute, un excès de 
sévérité plutôt que de prêter le flanc 
à d'éventuelles critiques. 


Vous demandez à vos lecteurs et à 
vos abonnés de vous écrire. Person- 
nellement, j'ai longtemps hésité car, 
il est dur d’avouer, je suis bloqué. 
S.O.S., Pom's, que dois-je faire ? 
Et pourtant, je ne vois que quatre 
solutions : 


1. Me résigner à des programmes 
rudimentaires. 
2. Acheter des logiciels de «confec- 
tion» sans vraiment comprendre ce 
qui s'y passe. 
3. Etudier, étudier encore, mais 
dans quels livres trouverai-je ce qui 
m'intéresse ? 
4. Vous écrire, car je dois être le 
type même du néophyte qui 
démarre et a besoin d’une revue 
bienveillante. 


J'aimerais trouver une solution à 

mes problèmes actuels de program- 

mation : 

e dans un affichage long, comment 
bloquer l'écran à certaines lignes ? 

e comment trier un tableau qui com- 
porte des données alphanuméri- 
ques et des valeurs ? 


M. Albert Bazin - 75020 Paris. 


Pour bloquer une partie de l’écran, il 
suffit d'utiliser les POKE's. Ainsi, 
POKE 34,n bloque les n premières 
lignes de l'écran, comme vous pou- 
vez le constater facilement. Dans ce 
cas, HOME ne nettoie plus la partie 
bloquée. Le haut de l'écran reste 
bloqué tant que vous n'utilisez pas 


TEXT ou un autre POKE 34,x (avec 
x<n). 


Un tableau ne peut contenir à la fois 
des caractères alphanumériques et 
des valeurs, sauf si celles-ci sont défi- 
nies comme des alphas. En effet, le 
tableau porte un nom de type 
NOMS( ), ou de type NOM! ). Si le 
tableau est alphanumérique, les 
valeurs numériques seront classées 
selon l’ordre alphabétique (celui du 
dictionnaire) : si par exemple, vous 
devez classer «2» et «111», 111 
passe avant 2 car son premier carac- 
tère est «plus petit ». 


Voici le patch à apporter à HAIFA 


(Pom's numéro 5) pour obtenir : 
1.234.567,89F 

avec l'instruction : 

& PRINT USR « ———. 
F» ; 1234567.89. 


Pour un 48K , il faut opérer en deux 
étapes successives : 


BLOAD HAIFA. CODE1,A$6800. 
En moniteur : 

7281:46 

7285:2C 
BSAVE HAIFA.CODE1,A$6800, 
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L$1000. 


BLOAD HAIFA.CODE2,A$7800. 
En moniteur : 

7964:2E 

7979:46 

7990:46 

7993:2E 
BSAVE. HAIFA.CODE2,A$7800, 
L$1000. 


M. Chauvière - 21300 Chenove. 


Si, après avoir utilisé le programme 
HELLO de Thierry Le Tallec et Jac- 
ques Tran-Van (Pom's numéro 6), 
on utilise un programme en assem- 
bleur implanté en $300, cela efface 
la page 3 du DOS. On est alors 
obligé de rebooter pour parvenir à 
utiliser le DOS. Y a-t-il une parade ? 


André Babeanu - 78350 Jouy-en- 
Josas. 


Nous transmettons la demande aux 
auteurs. 


Il existe aux Pays-Bas une émission 
sur la chaîne nationale Hilversum 2, 
le dimanche de 19h 10 à 19h 45 
sur 747 Khz qui se propose d'émet- 
tre en code des programmes d'infor- 
matique compatibles avec tous les 
micros, y compris l'Apple II. 


Le système BASICODE est conçu 
pour 1 200 bauds. Des expériences 
ont lieu pour le même protocole à 
300 bauds, qui doit donner une 
réception plus fiable. 

Pour tous renseignements, contacter 
BASICODE, Administrative Alge- 
meen Secretariaat, NOS, P.O. Box 
10, 1200 JB Hilversum. Pays-Bas. 


Thierry Lombry - Rue Tienne-aux- 
Pierres 94 - B. 5150 Wepion - Belgi- 
que. 


1. Le patch de la ROM LowerCase 


est déconnecté par le HELLO de 
Pom's 6. Je suppose que c'est le 
module destiné à effacer PLE qui 
est coupable. Pourriez-vous me 
dire comment modifier HELLO 
pour éviter ce désagrément ? 


2. Je voudrais faire quelques remar- 
ques au sujet de SNTX COM- 
PILE (Pom's 6). Contrairement à 
ce qu'écrit Herz, TASC ne provo- 
que pas l'effacement du pro- 
gramme étudié, mais seulement 
celui de ses deux premiers octets. 
Il suffit de mémoriser ces octets, 
puis de les rétablir. D'ailleurs, il 
n'y a pas lieu de: sauvegarder 
104, 104, 175 et 176 puisque la 
mise en place de COMPILE ne 
les perturbe pas. 
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Si l’on fait tourner le programme ci- 
joint, on crée un fichier KO : il suffit 
alors de faire EXEC KO pour lancer 
SNTX COMPILE et récupérer 
ensuite le programme étudié. Il sem- 
ble donc possible de créer un pro- 
gramme compilé selon les indica- 
tions précédentes. 


Il serait souhaitable de compiler de 
façon à replacer sous la HIMEM de 
PLE. On pourrait prévoir de placer 
entre cette HIMEM et SNTX COM- 

PILE les différents octets à mémori- 

ser, à savoir :” 

e les deux premiers octets du pro- 
gramme étudié ; 

e l'indication du slot I de l'impri- 
mante, défini par le fichier EXEC 
et lu par SNTX ; 

e ce serait préférable à l'implantation 
actuelle en 1912, 1913, qui 
interfèrent avec l'imprimante. 


3. Je joins les listings annotés de 
SNTX et FAIT SYNTAXE per- 
mettant d'imprimer sur papier les 
messages d'erreurs. 


4. Je vous signale que le pro- 
gramme considère comme une 
erreur une ligne de DATA telle 
que : 2000 DATA “Montant : 
..”. Apparemment, ce sont les 
« : » qui le perturbent. 


Yvan Koenig - Mosaïque Gerbino 
Rue du Stade - 06220 Vallauris 


1. Patch de la ROM LC 


Signalons tout d’abord que le menu 
ne détruit pas en fait PLE : PLE se 
contente d’abaisser les buffers du 
DOS et de se loger ainsi entre le 
DOS et ses buffers, de façon à ne 
pas être affecté entre autres par la 
commande FP puisqu'il se trouve de 
cette façon au-dessus de la HIMEM. 
Le menu se contente de remettre ces 
buffers à leur place. Or, le patch 
d'entrée de caractères de la ROM 
LowerCase abaisse de $100 ces buf- 
fers et la HIMEM par la même occa- 
sion. Un autre problème avec ce 
menu était le JSR SETKBD du 
début qui fait un IN#0 de façon à 
déconnecter la routine d'entrée de 
caractères, ce qui est nécessaire si 
PLE est présent, mais doit être évité 
dans le cas présent. Finalement, je 
propose le patch suivant, qui évite 
de réassembler le programme de 
menu, en utilisant une « déviation » 
par quelques instructions assembleur 
ajoutées à la fin du code du pro- 
gramme. 


LOAD MENU 
CAEL -151 





810 -4CFE QC 

CFE : 20 58 FCAE 55 AAED0 28 
D06 -DOOCAE 56 AAE09CD005 
DOF -A99B4C 30 08 4C 13 08 
AF :170D 

SAVE MENU LC 


2. SNTX compilé 


Remarquons tout d’abord que le 
programme que j'ai compilé est légè- 
rement différent du programme 
SNTX, car il n’y avait pas lieu de 
retenir les pointeurs 103, 104, 175 
et 176. La compilation n’a pas été 
très facile : j'ai implanté la bibliothè- 
que RUNTIME à partir de $6500. 
J'ai ensuite mis le programme objet 
derrière (en décimal 29869). 
L'ensemble a été calculé de façon à 
ne pas dépasser l'adresse $9000, 
afin d’être compatible avec PLE. 


Quand j'écrivais que TASC efface le 
programme, je pensais bien sûr à un 
effacement au sens des commandes 
FP ou NEW et non à un effacement 
physique. En effet, TASC termine 
son exécution en mettant à zéro les 
mémoires 800-801-802, à $801 le 
pointeur 103-104, et à $803 le poin- 
teur 175-176, ainsi que les pointeurs 
105-106, 107-108 et 109-110 : il 
s’agit visiblement d'un NEW (ce n’est 
pas un FP car, si l’on change la 
HIMEM, elle n’est pas rétablie). Pour 
éviter cet ennui, il existe des petits 
programmes en assembleur permet- 
tant de récupérer un programme 
effacé par NEW ou FP. On peut 
aussi utiliser le fichier EXEC KO créé 
par le programme FAIT KO de la 
page 66 (provenant de votre lettre, 
après une petite modification). 


3. Version imprimante de SNTX 


Nous n'avons pas la place de mettre 
ici la liste complète de SNTX modifié 
que vous nous envoyez. Voir en 
page 66 la liste des lignes à modifier 
dans SNTX pour pouvoir sortir 
l'analyse sur imprimante. 


4. Un bug dans SNTX 


En ce qui concerne les instructions 
DATA mal comprises par SNTX, 
cela fait partie des 0,1 % à 1 % de 
cas que je pense avoir oubliés. Vous 
trouverez en page 66 la liste des 
modifications à apporter pour que ce 
problème soit résolu. 


Olivier Hefz 


J'utilise HAIFA en version carte lan- 


gage. Pouvez-vous me dire com- 
ment charger un autre programme 
de musique en cours de programme 


65 


66 


en $D000? Faut-il refaire 
A=PEEK(-16247), une fois, deux 
fois ? 


P.Y. Gouriou 110, avenue Lartigue - 
08600 Givet 


Pour charger un autre air de musi- 
que dans la version 64K de HAÏIFA 
(en $D000 dans le BANK 1 de la 
carte langage), il faut procéder 


Fait KO 


1LIST 
18 D$ = CHR$ (13) + 


N$&D$"WRITE"NS 


CHR$ (4) :N$ = “KO" 
28 PRINT D$"OPEN"N$D$"DELETE"N$DS$ * OPEN" 


comme HAIFA.EXEC et faire 
(depuis un programme ou bien au 
clavier) deux fois A =PEEK(-16247) 
avant de faire le BLOAD ; il est en 
outre conseillé de faire A=PEEK 
(-16254) après ce BLOAD pour 
remettre la carte langage dans l’état 
normal en utilisation de l’Applesoft. 
De même, pour charger une autre 
table de caractères (en $DO00, 
$D600, $D900 ou $DCO00 sur le 


BANK 2 de la carte langage) il faut 
faire deux fois A=PEEK(-16255) 
avant le BLOAD et A=PEEK 
(-16254) après. 


Votre question m'a d’ailleurs fait 
découvrir une erreur dans le début 
de l'annexe 1 de l’article sur HAIFA 
(numéro 5 de Pom's) : j'ai inversé 
les rôles des BANKS I et 2 de la 
carte langage. 


E 1657,88:YK = 1: RETURN 
IF NOT ERR GOTO 138 


IF ERR AND YK = 8 THEN GOSUB 97 
PRINT "LIGNE "LI® INSTR "IST" > "3: 


IF ERR = 2 OR ERR = 3 THEN PRIN 


38 PRINT "POKE1912,PEEK( 183) :POKE1913,P 


48 
5e 
69 
78 
71 
75 
8e 


98 


EEK(184)" 

PRINT "“POKE 1914 ,PEEK( 175) :POKE1915,P 
EEK(176 °° 

PRINT “POKE1916,PEEK(PEEKK 183) +PEEK( 
184) X256) :POKE 1917 ,PEEK( 1+PEEKK 18 
3) +PEEK( 184) X256) “ 

PRINT “BLOAD SNTX COMPILE* 

PRINT "CALL 298469" 

PRINT "8" 

PRINT “POKE183,PEEK( 1912) :POKE 184 ,PE 
EK( 1913) :POKE175,PEEK( 1914) :POKE1 
76,PEEK( 1915) 

PRINT “POKEPEEK( 1912) +PEEK( 19 13) X256 
,PEEK( 1916)" 

PRINT "POKE 1+PEEKK 1912) +PEEKK 1913) X2 


5888 


18883 
18884 


188108 
12888 


12828 


T 8$;" GI 

IF ERR < 8 AND ERR < 
NT "XXXXX ‘; 

ERR = 11: ON YK = @ GOSUB 97: PRINT 
"LIGNE “L1* INSTR "IST" > "ER$SCE 
RR) :PTR = NL: GOTO 188088 
GOSUB 18:LN = A: GOSUB 18:LN = À 
X 256 + LN:LI = Li 
REM 

IST = IST + 1 
PRINT : POKE 1657,48: PRINT CHR# 
(4) "PRH@“: PRINT “VOULEZ-VOUS RE 
VENIR AU PROGRAMME INITIAL?" ; 
PRINT A$: IF À$ = *O" THEN POKE 
183, PEEK (1914): POKE 184, PEEK 
(1915): POKE 175, PEEK (1916): PO 


> 6 THEN PRI 


Sé,PEEK(1917* 
95 PRINT “DEL1,8" 


KE 176, PEEK (1917) 


PTR = 


188 PRINT D$"CLOSE"N#$D$"LOCK®N# x 256 


Fait syntaxe IMP 
ILIST 


PEEK (1914) + PEEK (1915) 


SNTX BUG 


38 PRINT "POKE 1914,PEEK( 183) :POKE 1915 


:PEEK( 184) * 


1LIST 


48 PRINT "POKE 1916,PEEK( 175) :POKE 1917 


,PEEK( 176) * 
SNTX IMP 

LIST 

97 PRINT CHR$ (4)*PRH1* 


CHR$ (132: POK 


3388 ERR = 12 


3316 

188 
3328 IF A < 
33308 
3348 


3350 





Courrier des clubs 


L'Association Floppymathique 
anime un club de micro- 
informatique sur matériels Apple et 
Sharp. Ce club s'adresse à des jeu- 
nes (à partir de la classe de 4:) et à 
des adultes. 


Niveau : initiation ou perfectionne- 
ment. 


Pour tous renseignements, télépho- 
ner le jeudi de 16h à 18h ou le 
samedi de 14h à 18h au (20) 
73.94.80. Sinon, le soir vers 20h 
au (20) 89.90.76. 


R. Courouble - Association Floppy- 
mathique - 54, rue de Lille - 59100 
Roubaix. 


Le 12 janvier 1983, une vingtaine 
d'architectes, utilisant professionnel- 
lement des Apples Il et III, se sont 
réunis à Paris, à la suite de quoi des 
axes d'intérêt majeur et des actions 
communes ont été définis. 


En outre, la fondation d’un club 
d'utilisateurs a été décidée. Les 
architectes équipés d’Apples sont 
invités à y participer et priés de se 
faire connaître à l'adresse ci- 
dessous, afin d’être informés des 
développements ultérieurs. 


Ceux qui ne possèdent pas encore 
de matériel et qui souhaitent avoir 
des renseignements peuvent nous 





GOSUB 18: 1F À = 6 OR À = 58 THEN 


> 34 THEN 3318 


GOSUB 18: IF À = @ THEN 168 
IF À = 34 THEN 3318 
GOTO 3330 


demander la liste des participants, 
afin de contacter le plus proche. 


Les producteurs de matériels et de 
logiciels susceptibles d'être utilisés 
dans notre profession sont aussi 
priés de se faire connaître. 


Jean-Michel Guillaume - 110, ave- 
nue du Général-Leclerc - 75014 
Paris. 


Robotwar 


Appel à tous les utilisateurs de 
Robotwar. Un concours va être 
organisé. Prendre contact 
d'urgence avec Jean-Marc Ser- 
vat. Tél. : 651.66.61 (de préfé- 
rence après 19 heures). 
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pseudo disque 
PU. (compatible CP/IM*) 


= Z 80 C. 


1 





à 


sitter 





# APPLE 
APPLE 

eCP/M marque 
digital rese è à gr 








17 bis, rue Va = 
75018 Paris _— 


Tél. : 229 19.74 + Télex : 280 150 F 


/ | 
| 








En raison des fluctuations monétaires, ces prix sont susceptibles d'être modifiés sans préavis. Nous consulter pour confirmation. 





JCR, DES MICRO-ORDINATEURS 
PROFESSIONNEL ET GRAND PUBLIC. 


COMMODORE VIC 20 

Un vrai micro-ordinateur puissant et 
évolutif idéal pour l'initiation comme 
pour la pratique de la programmation. 


16 couleurs RAM 35 K. 
Version en PAL. 2350€ 


JEUX 
_____ ÉDUCATION 
GESTION 
BUREAUTIQUE 






APPLE Il HO. 


Le plus populaire des micro-ordina- 
teurs. 48 K RAM. Basic Applesoft. Une 
gamme incomparable de logiciels et 
d'accessoires. 

Applell+ 48K + Diskavec Contrôleur 
+ Moniteur 12”. 





SHARP PC 1500 


Ordinateur de poche de 185 Ko de 
mémoire vive extensible avec module 
de 8K CE 155. 


CE 150 


Mini table traçante 4 couleurs directe- 
ment connecteble sur PC 1500, Inter- 
face K 7 incorporé. 

PC 1500 + CE 150. 100€ 
CE 158 


BOUTIQUE 


EPSON HX 20 

Un système compact 

clavier écran S900E 
LCD avec imprimante. 

MicroK 7. 
Extension 16K. 







EPSON 
Imprimantes de haute qualité d'im- 
pression.Interface parallèle type Cen- 
tronics. 

MX 80 FT : 80 cps. 
ou 132 compressés. 


5 800F] 


MX 100 : 100 cps. 132 caractères 
ou 233 compressés. (8200F] 


MX 100 FT IT 
_ 





APPLE III 


L'outil professionnel par excellence. 
128 Ko ou 256 Ko. Unité de disque 
incorporée. Sortie RS 232. Nombreux 
interfaces disponibles. Adjonction 
possible d'un disque dur de 5 méga. 
Profilé. Ecran vert haute résolution 
antreflets. Clavier Azerty - OQwerty. 


Nous consulter. 
ENCORE MOINS Frs 





58, rue Notre-Dame-de-Lorette 
75009 PARIS 
Tél. (1) 282.19.80 - Télex : 290350 F 





e ATARI 400 et 800 

e APPLELE 

e CASIO PB 100 

e SHARP PC 1251 

e SHARP PC 1212 

e INTERF. RS 232/PC 1500 
e VICTOR II 48 K HR 


TO 7 THOMSON 


Un ordinateur 100% français 8 Ko 
extensible à 32 Ko.Fourniavecunlec- 
teur optique. Sortie couleur Péritel. 
Clavier Azerty accentué. 
Idéal pour 

apprendre en famille. 


3650F 





Vente par correspondance 
Catalogue gratuit sur demande 


Crédit 4-36 mois 
Leasing 36-48 mois 





59, rue du Docteur Escat 
13006 MARSEILLE 
Tél. (91) 37.62.33 


Horaires d'ouverture du magasin - du mardi au samedi : I0h-12h45/14h-19h 





